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/  Abstract 

>^^>Printed  circuit  board  artwork  is  usually  prepared 
manually  because  of  the  unavailability  of  Computer-Aided 
Efesign  tools.  This  thesis  presents  the  design  of  a 
microcomputer  based  printed  circuit  board  layout  system  that 
is  easy  to  use  and  cheap.  Automatic  routing  and  component 
placement  routines  will  significantly  speed  up  the  process. 

The  design  satisfies  the  following  requirements: 
Microcomputer  implementation,  portable,  algorithm 

V  3 

independent,  interactive,  and  user  friendly.  When^fully 
implemented,  a  user  will  be  able  to  select  components  and  a 
board  outline  from  an  automated  catalog,  enter  a  schematic 
diagram,  position  the  components  on  r;;e  board,  and 
completely  route  the  board  from  a  single  graphics  terminal. 

Currently,  the  user  interface  and  the  outer  level 
command  processer  have  been  implemented  in  rascal.  Future 
versions  will  be  written  in  C  for  better  portability. 


Reproduced  from 
i  best  avail#  blacopy. 
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Chapter  I 
Introduction 

Once  an  electronic  circuit  design  is  completed  on 
paper,  the  designer  has  to  test  the  circuit.  Testing 
usually  involves  construction  of  a  proto-board  or  wire-wrap 
circuit,  which  are  easy  to  modify.  The  next  step,  once 
circuit  modifications  have  been  made  and  tested,  is 
construction  of  the  actual  working  circuit.  A  printed 
circuit  board  is  most  often  used  because  of  its  reliability, 
low  cost,  and  capability  to  be  easily  reproduced. 

This  thesis  will  present  the  design  of  a  printed 
circuit  board  design  environment  to  be  implemented  on  a 
micro-computer  and  used  by  students  and  faculty  at  the  Air 
Force  Institute  of  Technology. 

Background 

The  process  of  transfering  an  electronic  circuit  design 
to  a  printed  circuit  board  consumes  much  time  and  is 
error-prone  when  done  manually.  Here  is  a  basic  outline  of 
the  steps  required  to  complete  a  printed  circuit  board: 

1.  Design  the  circuit  -  prepare  a  schematic  diagram. 

2.  Decide  where  to  position  the  components  on  the 

board . 

3.  Layout  all  of  the  connections  between  components. 

4.  Prepare  the  artwork  from  results  of  2  and  3. 

5.  Produce  the  actual  board  from  the  artwork. 

The  schematic  diagram  is  used  to  direct  the  rest  of  the 
process.  Often,  the  person  who  draws  the  schematic  is  not 
the  person  who  makes  the  printed  circuit  board.  All 
necessary  information  must  therefore  be  contained  in  the 
schematic . 


The  next  step  is  the  selection  of  the  actual  board 


outline  that  the  circuit  will  be  placed  on.  This  is  usually 
determined  by  other  parameters  such  as  the  equipment  with 
which  the  circuit  will  be  used.  The  selected  board  outline 
is  layed  out  on  transparent  mylar  sheets  using  strips  of 
opaque  black  tape. 

Now  that  the  board  is  defined,  the  components  must  be 
positioned  within  the  available  area.  This  is  usually  done 
on  paper,  because  of  the  amount  of  trial  and  error  involved. 
The  proolem  is  complicated  because  many  components  have 
multiple  logically  independent  elements.  A  hex  inverter 
chip,  for  example,  has  six  independent  inverters  in  one 
package.  On  the  schematic,  these  six  inverters  may  be 
scattered  all  around,  making  it  difficult  to  decide  where  to 
put  the  chip.  Once  positions  are  decided  upon,  clear 
plastic  stickers  with  black  opaque  pads  properly  oriented 
for  each  component  are  fastened  to  the  mylar  sheet. 

The  most  difficult  part  of  the  job  comes  next:  the  pads 
must  be  connected  together  properly.  If  a  double  sided 
board  is  being  made,  then  the  draftsman  has  more 
flexibility.  He  must  decide  which  connections  to  make 
first,  because  as  each  connection  is  laid  out,  the  remaining 
ones  become  harder  to  find  room  for.  For  each  connection, 
each  segment  must  be  assigned  to  a  layer  where  it  doesn't 
interfere  with  existing  wires,  because  wires  cannot  cross  on 
the  same  layer  Wire-  for  each  layer  are  laid  out  with 
different  color  ta  (red  and  blue)  on  tne  same  mylar  sheet. 


or  each  layer  has  its  own  mylar  sheet  with  the  pads 


positioned  in  the  same  place  on  each  one.  In  any  case,  as 
the  draftsman  proceeds,  he  will  probably  have  to  remove  some 
previously  laid  tape  to  make  room  for  other  connections 
later  on.  If  component  placement  is  done  properly,  then  the 
actual  layout  or  routing  step  becomes  easier,  but  is  still 
tedious.  A  skilled  draftsman  can  become  very  good  at 
routing,  but  it  takes  a  lot  of  patience  and  practice. 

Now  that  the  mylar  sheet  or  sheets  have  the  completed 
artwork  on  it,  the  pattern  must  be  transferred  to  the  copper 
layer  of  the  printed  circuit  board.  This  is  a  photographic 
process  which  uses  the  clear  mylar  sheet  as  an  exposure 
mask.  A  chemical  is  applied  to  the  copper  surface  of  the 
board  that  makes  it  sensitive  to  light.  The  pattern  on  the 
mylar  is  then  transferred  to  the  light  sensitive  copper  by 
exposing  the  board  to  light  througn  either  the  mylar  itself 
or  a  negative  of  it,  depending  on  the  process.  Another 
chemical  is  then  used  to  selectively  etch  away  the  unwanted 
copper,  leaving  behind  copper  only  where  the  tape  was  on  the 
original  mylar  sheet.  If  the  board  has  more  than  one  layer, 
then  each  layer  must  be  set  in  registration  with  the  others 
so  that  the  pads  line  up  on  all  layers. 

Once  the  artwork  is  prepared,  as  many  circuit  boards  as 
are  desired  can  be  manufactured  with  little  additional 
expense  or  effort  which  is  the  main  attraction  of  printed 
circuit  board  technology. 


Problem 


At  the  Air  Force  Institute  of  Technology,  small  to 
medium  size  circuits  designed  by  students  and  faculty  are 
manually  laid  out  on  double  sided  boards  by  a  draftsman. 
Resources  are  available  through  the  Avionics  Laboratory  for 
multi-layer  boards,  but  the  original  designer  of  the  circuit 
doesn't  do  the  layout.  Because  of  the  time  and  effort 
required  to  produce  a  printed  circuit  board,  many  projects 
that  would  benefit  from  the  use  of  a  printed  board  do  not 
attempt  to  use  them,  and  others  are  delayed  because  of  the 
limited  resources  available  for  printed  circuit  board 
production . 

What  AFIT  needs  is  a  way  for  inexperienced  designers 
(students  who  have  never  made  a  printed  circuit  board 
before)  to  create  their  own  printed  circuit  board  artwork  ir. 
less  time  than  the  current  manual  system  requires.  While 
there  are  commercially  available  printed  circuit  board 
design  systems,  they  are  generally  not  easy  for  beginners  to 
use.  These  systems  are  also  capable  of  producing  large, 
high  density  circuit  boards  for  production  run  environments, 
capabilities  wnich  are  not  required  in  most  cases  at 
academic  institutions.  This  tnesis  will  present  the  design 
of  a  device-independent,  graphics  oriented  printed  circuit 
board  layout  environment.  This  system  will  ce  designed 
specifically  for  users  inexperienced  in  PCB  layout,  allowing 
them  to  produce  high  quality  finished  hoards. 


There  are  a  wide  variety  of  computers,  graphics 
terminals,  and  plotters  available  at  AFIT,  so  the  ability  to 
support  many  combinations  of  hardware  is  essential.  Device 
independence  will  also  allow  support  of  future  hardware 
acquisitions  and  permit  implementation  by  other  facilities. 
Interactive  graphics  with  a  friendly  user  interface  will 
allow  the  inexperienced  user  to  successfully  complete  the 
design  of  his  or  her  board,  freeing  the  draftsman  for  other 
work.  Also,  if  it  becomes  easy  to  produce  finished  boards, 
more  boards  may  be  attempted  in  the  first  place. 

Scope 

Because  the  algorithms  to  perform  component  positioning 
and  routing  are  so  numerous,  this  project  will  not  attempt 
to  develop  new  ones  or  select  existing  ones  for 
implementation.  Rather,  the  primary  focus  will  center 
around  the  design  of  the  user  environment,  including 
graphics  support  and  file  management  routines.  This 
environment  will  provide  a  base  from  which  follow-on  work 
can  build  a  fully  implemented  system.  Evaluating  the 
resulting  user  interface  will  oe  a  part  of  this  thesis 
effort,  to  discover  any  areas  that  need  further  development. 
While  routing  and  placement  algorithm  implementation  is  not 
the  focus  of  this  effort,  skeletal  routines  to  test  the  user 
interface  will  be  implemented. 


Evaluation  of  Methods 


Regardless  of  the  system  used,  there  are  certain  steps 
which  must  be  carried  out  when  designing  a  printed  circuit 
board.  These  steps  are  circuit  description,  component 
placement,  board  layout,  and  fabrication.  When  integrated 
into  a  complete  system,  the  user  does  not  have  to  be  aware 
of  the  divisions  between  them.  Even  tnough  they  may  be 
independently  operating  programs,  the  user  should  think  he 
is  using  only  one  program.  Several  commercial  printed 
circuit  layout  systems  have  been  described  in  the 
literature.  [1-11]  These  are  integrated  systems  which 
include  all  of  the  above  steps,  but  there  are  several 
implementation  differences.  The  following  section  will 
elaborate  on  the  advantages  and  disadvantages  of  the  various 
approaches  and  identify  those  best  suited  to  a 
micro-computer  environment. 

Circuit  Description 

Once  a  schematic  diagram  of  a  circuit  is  drawn,  that 
information  must  be  entered  into  the  computer.  This 
information  consists  of  the  components  to  be  used  and  how 
they  are  to  be  connected.  At  least  four  approaches  are  used 
in  commercial  systems:  a  compiled  definition  language,  nand 
digitization,  fully  automatic  digitization,  and  interactive 
keyboard  entry. 

Definition  language  -  Three  of  the  systems  [1,5,8] 
require  the  user  to  describe  the  components  in  a  special 
language.  Although  easy  to  implement,  tr.is  method  has 
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several  disadvantages:  The  user  must  learn  the  language 
before  he  can  use  it.  Logic  errors  in  the  input  file  will 
not  be  obvious  unless  a  plot  of  the  schematic  is  produced. 
Even  then,  pinpointing  the  location  of  a  stray  wire  can  be 
difficult.  With  enough  experience,  compiled  languages  can 
be  easy  to  use,  but  casual  or  first  time  users  won't  have 
the  time  to  get  that  experience. 

Digitization  -  Most  of  the  systems  [3,4,9,10]  use  this 
method  to  input  schematic  data,  which  requires  the  use  of  a 
digitizing  tablet.  The  stylus  is  used  to  locate  a  component 
and  trace  or  highlight  the  desired  connections.  This  is 
quick  and  reliable,  but  the  user  must  know  how  to  operate 
the  digitizer.  If  the  same  digitizer  were  to  be  used 
everywhere,  this  would  not  be  of  much  concern.  However,  the 
availability  of  a  suitable  digitizer  cannot  be  assumed. 

Automatic  digitization  -  One  of  the  systems  [11]  uses 
fully  automatic  digitization.  The  schematic  is  drawn  on 
paper  and  then  scanned  by  the  digitizer.  This  requires 
extensive  software  support  to  extract  the  circuit  from  the 
digitized  pattern.  Additionally,  the  schematic  must  be 
originally  drawn  to  a  set  of  specifications  so  it  can  De 
read.  From  tne  operator's  point  of  view,  this  is  the 
simplest  way  to  go,  but  is  too  expensive  for  a  small  system, 
and  training  would  be  required  before  schematics  coulo  be 
consistently  interpreted  correctly. 
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Interactive  via  keyboard  -  The  last  method  [6,7]  allows 
the  designer  to  construct  the  schematic  diagram  on  the 
graphics  display,  using  an  on-screen  menu  with  cursor 
selection.  The  display  is  a  window  to  the  entire  schematic. 
This  has  the  benefit  of  not  requiring  any  special  format  for 
the  schematic.  Additionally,  the  hardware  requirements  are 
minimal.  Graphics  displays  are  more  readily  available  than 
digitizers,  and  will  be  required  for  the  placement  and 
routing  phases  anyway. 

Component  selection  is  handled  almost  identically  in 
each  of  the  systems  -  a  library  of  predefined  component  and 
board  parameters  is  maintained  from  which  the  desired 
components  can  be  selected.  Users  may  add  to  the  library  at 
any  time.  The  type  and  amount  of  information  about  each 
component  includes  physical  parameters,  electrical 
parameters,  logical  parameters,  and  manufacturing  data. 
Although  library  size  on  a  micro-computer  would  be 
necessarily  smaller  due  to  storage  limitations,  it  is 
important  to  anticipate  future  needs  for  the  library  and  oe 
aole  to  support  them. 

Component  Placement 

Once  the  computer  knows  what  components  to  use  and  now 
they  are  to  be  connected,  they  must  oe  positioned  on  the 
board.  Various  algorithms  to  perform  automatic  placement 
are  widely  used  (pairwise  and  triplet  exchange, 
force-relaxation  migration  [6] ) ,  but  they  are  not  as 


necessary  for  small  boards.  The  manual  placement  of 


components,  if  done  with  good  judgement,  should  be  adequate. 
However,  it  must  also  be  easy  for  the  user  to  change  his 
mind  and  reposition  components.  Additionally,  tne  impact  of 
a  specific  placement  should  be  made  visible  before  routing 
is  attempted. 

Commercial  systems  use  manual  placement  as  a  first  cut 
at  final  placement  to  speed  up  the  process.  The  assumption 
is  that  the  designer  has  a  pretty  good  feel  about  what 
components  should  be  close  to  each  otner,  and  automatic 
placers  simply  optimize  this  initial  placement.  Even  if  an 
automatic  placement  algorithm  is  to  be  implemented,  an 
interactive  manual  placer  is  still  required. 

Additional  help  is  provided  to  the  user  in  the  form  of 
connection  distribution  displays  [3]  which  provides  a  wire 
density  plot  along  both  axes,  and  other  graphical  aids  like 
rulers,  exact  component  positions,  and  prompting  for  next 
best  location. 

Board  Layout 

Now  that  the  components  are  positioned  on  the  board, 
the  previously  identified  connections  must  be  routed.  The 
greatest  portion  of  the  literature  concerning  printed 
circuit  board  design  automation  is  devoted  to  descriptions 
of  various  routing  strategies.  The  basic  types  are  the  Lee 
or  maze  router,  channel  routers,  and  line  search  routers. 


Each  of  the  strategies  is  adapted  for  different 
circumstances,  out  it  is  important  to  realize  that  even 
though  they  seem  very  different,  the  same  information  about 


the  components  and  the  board  configuration  is  required  by 
them  all,  and  the  final  results  can  be  represented  in 
similar  forms.  The  focus  of  this  thesis  is  the  development 
of  a  data  structure  that  can  support  any  router,  not  the 
router  itself. 

The  commercial  systems  do  not  use  highly  sophisticated 
routines,  but  rely  on  combinations  of  the  Lee  router  and  the 
line  search  algorithm.  Channel  routers  are  designed  more 
for  VLSI  routing  applications,  and  none  of  tne  systems 
examined  incorporated  a  channel  router. 

Automatic  routers  usually  can  achieve  80-95%  of  the 
connections,  while  the  remainder  must  be  inserted  manually. 
A  batch  mode  router  will  attempt  all  connections  and  report 
failures  when  finished.  This  may  mean  that  the  operator  has 
to  try  a  new  placement  and  start  again,  or  manually  edit  the 
resulting  output  file.  An  interactive  approach  is  much  more 
adaptable,  and  relies  less  on  a  particular  router.  The 
commercial  systems  discussed  above  all  incorporate  an 
interactive  routing  strategy. 

The  router  to  be  used  should  be  selectable  by  the  user, 
as  should  the  amount  of  routing  to  be  done.  For  example, 
after  an  initial  attempt  to  route  the  entire  board, 
unfinished  connections  can  be  attempted  one  at  a  time  using 
different  routers.  Existing  paths  must  be  able  to  be  moved 
to  make  room  for  the  failed  paths.  Because  the  user  must  be 
allowed  to  move  paths,  a  check  must  be  performed  to  prevent 
design  rule  violations. 


There  are  two  approaches  to  achieve  100%  routing  of  a 
printed  circuit  board  after  an  initial  attempt  with  an 
automatic  router: 

Manual  editing  -  In  this  case,  unrouted  connections  are 
manually  filled  in  by  the  user.  By  allowing  the  user  to 
specify  where  those  connections  are  to  go,  the  possibility 
exists  for  design  rule  errors  to  be  introduced.  Also,  the 
graphics  display  must  be  able  to  present  the  actual  board 
layout  in  detail.  The  systems  that  use  this  approach 
incorporate  route  optimizations  to  clean  up  paths  entered  by 
the  user . 

Interactive  re-route  -  A  better  approach  is  to  allow 
the  user  to  delete  previously  routed  paths  and  invoke  the 
automatic  router  iteratively.  The  user  can  usually  identify 
the  congested  areas  easily.  By  removing  paths  that  are 
causing  problems  and  routing  them  later,  more  of  the  board 
can  be  routed.  Because  the  router  does  all  the  actual 
connections,  design  rule  violations  can  be  eliminated.  Of 
course,  the  router  must  enforce  the  design  rules. 

Fabrication 

After  the  board  is  routed,  artwork  suitable  for 
fabrication  must  be  generated.  Because  conventional  pen 
plotters  do  not  have  the  required  edge  definition  to  produce 
a  useable  mask,  they  can  only  be  used  for  a  check  plot.  A 
photo-plotter  must  oe  used  to  produce  the  actual  artwork. 
This  can  be  handled  by  a  post-processor,  because  no 
interaction  is  required  from  the  user.  Consequent  1  y , 


development  of  the  post-processor  has  no  direct  bearing  on 


the  PCB  design  process.  It  can  be  handled  off-line  in  a 
batch  mode  and  will  not  be  a  consideration  for  this  thesis. 
The  commercial  systems  also  have  capabilities  to  produce 
tapes  for  numerically  controlled  drilling  machines  and 
ordering  information  to  keep  component  stocks  up  to  date, 
whicn  are  also  not  directly  related  to  this  effort. 

Layout  of  Thesis 

This  chapter  has  examined  some  commercial  mini-computer 
based  printed  circuit  board  design  systems,  and  evaluated 
the  methods  and  approaches  used.  Chapter  II  will  explain 
the  requirements  that  the  fully  implemented  layout  system 
must  satisfy,  both  in  general  and  specifically. 
Justification  of  these  requirements  will  also  be  presented. 
Chapter  III  will  describe  the  overall  system  design  of  the 
printed  circuit  board  design  environment,  and  explain  the 
function  of  the  major  subsections.  Chapter  IV  will  describe 
in  detail  the  designs  of  the  sections  outlined  in  chapter 
III.  Chapter  V  will  describe  any  implementation 
difficulties  and  present  evaluations  of  the  user  interface 
and  the  file  management  routines.  The  final  cnapter  will 
provide  recommendations  for  future  efforts  and  present 
conclusions  about  the  success  of  the  project. 
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Chapter  II 

General  Requirements 

Briefly,  AFIT  needs  an  interactive  printed  circuit 
board  design  tool  that  can  be  implemented  on  a 
micro-computer,  is  portable,  and  algorithm  independent.  This 
tool  must  allow  the  user  to  describe  the  circuit  in 
sufficient  detail  so  it  can  be  routed  and  fabricated. 

Any  student  or  faculty  member  should  be  able  to  use 


almost  any  computer  available  and  easily  obtain  a  finished 
printed  circuit  board  starting  with  an  ordinary  schematic. 
This  is  a  very  simple  statement,  but  it  contains  the 
essential  requirements  for  the  printed  circuit  board  design 
environment  to  be  developed  by  this  thesis. 

Although  a  fully  implemented  printed  circuit  board 
layout  system  is  beyond  the  scope  of  this  thesis,  all  of  the 
modules  will  have  to  meet  certain  requirements  to  be  able  to 
communicate  with  other,  and  the  basic  routines  that  the 


layout  modules  will  require  must  be  implemented  as  part  of 
the  nucleus. 

Micro-computer  Implementation 

There  have  been  many  PCB  layout  systems  implemented, 
but  they  require  the  use  of  mini-computers.  They  are  meant 
for  commercial  use,  so  the  range  of  boards  they  must  handle 
encompasses  large  dense  boards  with  hundreds  of  integrated 
circuits.  Because  the  circuits  designed  at  AFIT  are  modest 
in  complexity  and  many  current  micro-computer  systems 
approach  the  capabilities  of  earlier  mini-computers,  it  is 
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practical  to  implement  a  PCB  design  system  on  a  micro.  No 
special  hardware  will  have  to  be  purchased  to  support  it. 


The  initial  target  machine  for  implementation  is  a  4 
MHz  Z-80  based  machine  with  48K  bytes  of  RAM  and  400K  of 
floppy  disk  storage.  This  configuration  should  be  the 
minimum  system  considered  for  this  project. 

Portable 

Because  the  available  software  and  hardware 
configurations  of  the  available  computers  may  differ 
greatly,  the  entire  system  cannot  ce  expected  to  be 
implemented  identically  on  all  of  them.  However,  all 
differences  should  be  transparent  to  the  user  -  a  constant 
user  environment  will  enable  users  to  use  different 
implementations  with  the  confidence  that  it  will  work  the 
same  on  each.  As  a  result,  all  machine  dependent  features 
must  be  isolated.  Assembly  language  cannot  be  used  except 
for  the  lowest  level  I/O  routines,  because  they  will  have  to 
be  re-written  for  each  specific  computer  and  peripheral 
device.  Disk  file  management  routines  cannot  rely  on  the 
resident  operating  system  for  the  same  reason.  Consequently, 
all  access  to  the  outside  world  must  pass  through  a 
standardized  set  of  procedures. 

The  language  used  to  write  the  machine-independent 
portions  must  be  available  on  all  of  the  target  machines. 
FORTRAN  IV  is  almost  universally  available,  out  it  is 
difficult  to  manipulate  complex  data  structures  efficiently. 
Although  less  standardized  than  FORTRAN,  Pascal  posesses 


much  more  powerful  data  structure  manipulation  facilities. 
The  difficulties  with  Pascal  center  around  non-standard  I/O 
processing.  By  forcing  all  I/O  to  be  performed  through 
standardized  subroutines  this  can  be  eliminated  as  a  matter 
of  concern. 

Another  difficulty  with  Pascal  is  the  separate 
compilation  of  procedures  and  functions.  Most  implementa¬ 
tions  allow  it,  but  it  is  performed  differently  on  each. 
Since  the  installation  procedure  will  only  have  to  be 
performed  once  on  each  computer,  this  is  not  as  important  as 
it  first  appears,  and  is  outweighed  by  the  ease  of  coding 
and  the  shorter  program  developement  times  afforded  by 
Pascal . 

Algorithm  Independence 

To  allow  for  experimentation  with  different  routing  and 
placing  algorithms,  the  system  must  be  modular  in  structure. 
This  requires  that  a  well  defined  intermodule  communication 
protocol  be  adhered  to  by  all  components  of  the  system,  and 
that  each  module  make  few  assumptions  about  how  other 
modules  do  their  job. 

All  modules  must  differ  only  in  the  function  they 
perform  -  the  command  syntax  should  not  change,  for  example. 
There  must  be  no  direct  I/O  performed  by  any  module  -  all 
I/O  processing  must  pass  through  the  predefined  lower  level 
I/O  routines.  This  will  eliminate  possible  inconsistencies 
in  I/O  handling. 


A  library  of  standard  components  and  board  outlines 
must  be  maintained  to  prevent  duplication  of  effort.  A  well 
maintained  and  complete  catalog  from  which  to  select 
components  is  preferable  to  defining  them  each  time  they  are 
used,  and  allows  users  unfamiliar  with  the  detailed 
component  parameters  to  use  them  anyway.  This  library  must 
contain  all  the  information  required  by  the  other  modules, 
so  that  future  enhancements  can  use  existing  component  data. 
In  other  words,  the  structure  of  the  library  must  be 
expandable . 

Other  data  structures  used  by  more  tnan  one  module  must 
include  the  interconnection  list  and  the  location  and 
identification  of  components  on  the  board.  These  must  be 
general  enough  to  allow  for  future  expansion  of 
capabilities,  not  limited  to  any  specific  algorithm  or  board 
technology. 

Interactive 

To  be  truly  interactive,  the  user  must  be  kept  aware  of 
the  progress  being  made.  He  must  be  able  to  interrupt  a 
process,  make  a  few  changes,  and  continue.  The  best  way  to 
show  progress  when  routing  a  board  is  graphically  -  draw 
each  connection  on  the  screen  as  it  is  completed.  Routing 
can  be  completed  a  single  wire  at  a  time,  or  whole  chunks 
can  he  attempted  at  once.  By  putting  the  user  in  the  loop, 
the  demands  on  the  router  are  lessened  and  macro-computer 
implementation  becomes  attainable. 


Placement  requires  a  graphic  display  indicating 
possible  congested  areas  on  the  board  as  each  component  is 
positioned.  Immediate  feedback  allows  the  user  to  decide 
which  placement  is  best.  Simply  drawing  straight  lines 
between  electrically  common  points  will  indicate  where 
routing  problems  are  likely  to  appear. 

The  requirements  imposed  on  the  graphics  display  depend 
on  the  complexity  of  the  circuit  to  be  drawn.  A  low 
resolution  display  can  handle  a  small,  simple  board;  higher 
resolution  is  required  to  display  more  complex  boards. 
Scrolling  through  windows  can  increase  the  effective  size  of 
the  display  at  the  expense  of  execution  time.  A  compromise 
is  the  use  of  fixed  windows,  one  of  which  can  be  viewed  at  a 
time.  Four  windows  would  allow  four  times  the  limit  of  the 
display  size  to  be  drawn.  For  example,  the  area  of  the 
display  of  the  target  machine  is  8  X  5  inches,  with  a 
resolution  of  13  mils.  If  a  50  mil  routing  grid  were  used,  a 
board  smaller  than  the  display  area  could  be  viewed  all  at 
once,  while  a  16  X  10  inch  board  would  fit  into  four 
quadrants. 

Because  an  ASCII  keyboard  is  universally  available  as 
an  input  device,  it  will  be  used  as  the  cursor  controller  as 
well  as  for  regular. text  input.  Joysticks,  trackballs,  mice 
and  assorted  other  gadgets  may  be  more  powerful  in  specific 
implementations ,  but  they  cannot  d  e  relied  on  to  be 
generally  available. 
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User  Environment 


The  environment  that  the  user  interacts  with  includes 
the  hardware  and  the  command  set.  While  certain  aspects  of 
the  hardware  cannot  be  held  constant,  the  command  set  should 
not  vary.  A  given  sequence  of  instructions  should  produce 
the  same  results  on  independent  computers.  As  far  as  the 
user  is  concerned,  the  only  differences  between  two 
implementations  of  the  system  should  be  cosmetic.  Large 
systems  may  oe  able  to  handle  larger  boards  or  work  faster, 
however . 

A  normal  level  of  familiarity  cannot  be  assumed  -  items 
like  directory  organization,  what  constitutes  a  legal 
filename,  how  to  access  files,  because  these  tasks  are  not 
constant  between  computers  and  aren't  directly  related  to 
the  job  at  hand,  i.e.  designing  a  PCB. 

Users  must  be  shielded  from  operating  system  errors 
because  of  the  non-standard  way  they  are  handled,  if  a 
command  requires  that  a  disk  file  be  opened,  for  example, 
the  results  can  be  different  if  the  file  doesn't  already 
exist.  A  new  file  may  be  created,  or  another  logically 
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different  file  that  happens  to  have  the  same  name  may  be 
written  over,  neither  of  which  was  intended  by  the  user.  To 
avoid  problems  like  these,  the  system  must,  make  explicit 
cnecks  before  issuing  commends  to  the  operating  system  to 
insure  that  all  required  files  are  where  they  are  supposed 
to  oe.  Non-recoverable  errors  must  be  eliminated  wherever 
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possible  to  keep  the  user  out  of  computer  dependent 
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situations 


Constantly  having  to  refer  to  various  manuals  will 
discourage  many  casual  users,  so  help  should  be  available 
where  required.  The  help  provided  must  be  specific  enough  to 
allow  the  user  to  continue  or  let  him  know  he  can't  do  what 
he  wants  to  do.  A  simple  prompt  should  never  be  displayed 
without  explanation.  Either  available  options  or  specific 
questions  should  be  asked  with  indications  of  valid  response 
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Summary  of  General  Requirements 


The  printed  circuit  board  design  system  developed  by 

this  thesis,  when  fully  implemented,  must  allow  a  user  to 

layout,  route  and  fabricate  a  printed  circuit  board  working 

from  a  schematic  diagram.  Additionally,  the  following 

requirements  must  be  satisfied: 

Micro-computer  implementation:  Able  to  run  in  a  minimum 
system  consisting  of  an  8  bit  processor,  48K  bytes  of 
RAM  and  400K  disk  storage. 

Portable:  Written  in  standard  Pascal  using  standardized 
routines  for  1/0  processing.  Cannot  be  dependent  on 
specific  hardware,  peripherals,  or  operating  system  for 
proper  operation. 

Algorithm  Independent:  Modular  in  structure  to  allow 
experimentation  with  routing  and  placement  algorithms. 
Data  structures  must  be  extensible  for  future  growth. 

Interactive:  Use  a  graphic  display  to  visually  show  the 
current  state  of  the  system  to  the  user,  allowing  him 
to  intercede  when  he  wishes. 

User  Friendly:  Maintain  a  constant  user  environment 
between  machines  and  shield  the  user  from  machine 
dependent  factors.  Provide  on-line  help  when  requested 
and  explain  available  options.  Encourage  casual  and 
first  time  users. 
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Specific  Requirements 

The  requirements  addressed  in  the  previous  section 
apply  to  the  entire  printed  circuit  board  design  system.  The 
following  section  will  describe  the  types  of  circuits 
designed  at  AFIT  and  outline  the  specific  requirements  that 
must  be  satisfied  by  the  various  pieces  of  the  system.  These 
specific  requirements  include  actual  board  parameters, 
circuit  complexity,  implementation  requirements,  graphics 
display  capabilities,  plotting  capabilities,  and  the  user 
interface . 

Board  Parameters 

In  general,  the  maximum  board  size  that  the  system  will 
be  able  to  handle  will  depend  on  the  specific  capabilities 
of  the  host  computer.  Rather  tnan  leaving  this  open-ended, 
however,  a  practical  limit  on  board  size  is  12  X  8  inches. 
This  is  the  largest  size  board  that  is  commonly  designed 
presently,  and  most  are  smaller.  Larger  boards  can  be 
designed  in  pieces,  but  the  limits  of  circuit  complexity 
described  below  will  make  larger  boards  impractical. 

Double  sided  boards  are  the  most  common  variety  that 
are  designed  by  hand,  and  four  layer  boards  are  currently 
supported  by  MOSIS.  The  problem  with  multiple  layers  is  the 
amount  of  additional  information  that  must  be  maintained. 
For  example,  with  double  sided  boards,  all  vias  exist  on 
both  layers  at  the  same  spot.  With  more  layers,  it  is 
possible  to  have  vias  between  inner  layers  that  don't  pass 
through  to  the  outer  layers.  This  requires  via  information 
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to  be  maintained  separately  for  each  layer.  To  support 
future  advances  in  technology,  the  data  structures  used  by 
the  router  must  recognize  the  existence  of  multiple  layers, 
even  if  not  all  of  the  layers  are  supported.  A  practical 
upper  limit  on  the  number  of  layers  to  be  considered  is 
four,  with  two  types  of  vias:  those  that  penetrate  all 
layers,  and  those  that  go  between  adjacent  layers  only. 

Routers  that  do  not  support  all  the  layers  will  only 
use  the  ones  they  recognize,  but  support  for  all  four  layers 
must  be  built  into  the  interface  of  the  router  and  the  other 
modules.  Preferred  directions  of  wire  segments  on  each  of 
the  layers  must  not  be  constrained  by  the  data  structure, 
because  different  routers  assign  segments  to  layers  using 
other  considerations  oesides  horizontal  or  vertical 
orientation. 

Circuit  Complexity 

To  keep  the  circuit  density  reasonable,  the  number  of 
integrated  circuits  will  have  to  be  limited  to  about  1  per 
square  inch.  This  will  allow  about  90  16  pin  IC's  on  a  12  X 
8  inch  board,  or  50  on  a  10  X  5  inch  S-100  board.  Higher 
densities  would  quickly  outstrip  the  memory  and  disk 
capacities  of  most  micro-computers.  Even  these  densities  may 
be  too  high  for  some  systems,  but  the  data  structures  must 
still  work,  i.e.  be  downward  compatible. 

A  routing  grid  size  of  50  mils  will  support  a  maximum 
of  one  wire  between  adjacent  pins  of  an  IC.  While  higher 
densities  are  possible,  the  complexity  of  trie  circuits  to  e 
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designed  by  this  system  do  not  require  higher  densities.  The 
current  limitation  on  grid  size  is  a  minimum  trace  width  and 
separation  of  10  mils,  so  a  20  mil  grid  is  the  minimum  that 
can  be  fabricated.  Even  though  a  router  may  support  such  a 
small  grid,  for  this  project  a  50  mil  grid  will  be  the 
minimum  size  grid  required.  Gridless  routers  may  make  more 
efficient  use  of  board  space  but  the  data  structures 
required  to  support  them  are  more  complex  than  those  that 
are  constrained  to  a  grid.  A  slight  loss  in  generality  is 
preferable  in  this  case,  because  implementation  will  be  that 
much  easier. 

Computer  Specifications 

To  realistically  implement  this  system  will  require  a 
computer  with  the  following  capabilities:  48K  of  memory,  two 
floppy  disks,  and  an  ASCII  keyboard.  Additional  hardware 
requirements  for  the  graphics  display  will  be  discussed 
separately. 

48K  bytes  of  memory  will  be  required  to  allow 
reasonable  module  sizes  to  execute.  Because  the  system  will 
be  segmented  into  independently  operating  programs,  with  no 
common  memory  allocated,  each  module  will  have  the  entire 
resources  of  the  computer  available  as  it  executes.  This 


dictates  that  any  information  exchanged  oetween  modules  must 
reside  on  disk. 

At  least  two  disk  drives  (Single  Sided  Single  Density 


8"  or  Single  Sided  Double  Density  5.25")  must  be  available 
to  allow  separation  of  project  files  and  system  modules. 
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Because  the  modules  will  be  chained  together,  they  must  all 
be  available  at  the  same  time.  One  disk  will  be  dedicated  to 
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the  support  of  the  system  software  and  must  be  available 
on-line  at  all  times.  If  more  than  two  drives  are  available, 
then  it  may  be  possible  for  two  drives  to  be  dedicated  to 
system  software.  In  any  case,  it  will  be  necessary  for  all 
of  the  major  modules  to  be  accessable  without  switching 
disks . 

The  keyboard  requirements  are  very  minimal  -  the 
computer  must  be  able  to  respond  to  individual  keystrokes 
and  the  keyboard  must  generate  the  standard  ASCII  character 
set  must.  Because  many  computers  have  special  function  keys, 
the  keyboard  input  support  routines  must  be  able  to  be 
configured  for  each  implementation. 

Operating  System  Support 

The  host  operating  system  under  which  the  printed 
circuit  board  design  environment  will  be  executed  must 
support  the  following  functions:  random  access  files  and 
error  trapping.  The  error  trapping  must  allow  a  program  to 
detect  and  correct  its  own  mistakes,  if  possible.  This  will 
prevent  confusing  the  operator  with  potentially  misleading 
error  messages.  Random  access  files  witn  fixed  record 
lengths  will  be  used  extensively,  and  must  be  available. 
Pascal  Requirements 

The  Pascal  compiler  must  support  the  following 
capabilities:  random  access  files,  separate  compilation  of 
procedures  and  functions,  and  linxing  with  macnine  language 
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subroutines.  Additionally,  it  should  conform  to  the  standard 
outlined  in  User  Manual  and  Report  by  Jensen  and  Wirth.  The 
portaole  portions  of  the  system  will  assume  conformance  with 
this  standard.  Compilers  or  interpreters  that  do  not  comply 
may  still  be  used,  but  implementation  may  be  more  difficult. 
Graphics  Display 

To  provide  a  reasonable  representation  of  the  circuit 
board  on  the  video  display,  the  graphics  resolution  must  be 
high  enough  to  show  the  minimum  routing  grid  size.  To  be 
displayed  in  actual  size,  a  50  mil  grid  will  require  a 
resolution  of  at  least  40  points  per  inch  in  both  the  x  and 
y  directions.  A  square  aspect  ratio  will  be  used  by  the 
graphics  routines,  so  the  lowest  resolution  axis  must  be 
used  for  comparison  purposes. 

The  display  must  be  bit-mapped  with  the  graphics  memory 
available  for  botn  reading  and  writing,  so  the  program  will 
be  able  to  determine  the  status  of  any  pixel,  as  well  as 
turn  it  either  on  or  off.  Higher  level  commands,  such  as 
drawing  lines,  boxes,  or  circles,  will  be  provided  by  the 
system  if  the  graphics  display  does  not  support  them 
directly.  This  support  will  not  be  as  efficient  as  hardware 
support,  but  will  allow  'dumb'  graphics  displays  to  be  used. 

Characters  and  graphics  must  be  simultaneously 
displayed,  but  it  is  not  necessary  for  the  text  and  graphics 
to  be  overlaid.  Separate  areas  for  text  and  graphics  will  be 
fine.  The  only  purpose  of  this  requirement  is  to  ensure  that 
any  messages  that  the  user  must  see  can  be  displayed  without 


erasing  the  graphics  display. 

Plotter  Output 

Because  the  faorication  artwork  requires  very  high  edge 
definition,  which  cannot  be  generated  by  ordinary  pen 
plotters,  the  plotter  will  be  used  only  to  produce  a 
checkplot  in  the  initial  implementation.  This  checkplot 
should  be  drawn  in  actual  size,  so  the  plotter  must  have  a 
resolution  of  at  least  twice  the  grid  size  being  used.  Even 
higher  resolution  is  necessary  to  distinguish  the  pads  and 
other  features,  so  a  working  minimum  resolution  of  100 
points/inch  is  called  for.  Most  plotters  have  much  better 
resolution  than  this,  so  no  problems  exist  with  this 
requirement. 

For  maximum  compatibility,  the  only  plotter  features 
which  are  required  are  absolute  X,Y  addressing  with  the  per. 
either  up  or  down.  The  paper  size  is  not  important,  because 
the  plotting  routines  will  partition  the  plot  as  necessary. 
Smaller  paper  sizes  will  require  more  pieces,  however. 

To  distinguish  the  different  layers  on  the  plot,  either 
multiple  colors  or  stipple  patterns  may  be  used.  Stipple 
patterns  will  require  blowups  of  the  area  of  interest  to  be 
seen.  As  with  the  graphics  display,  features  such  as 
scaling,  circle  generation,  ect.  will  be  provided  by  the 
system  if  the  plotter  will  not  perform  them  directly. 


Printer  Output 

Dot  matrix  printers  with  dot  addressable  graphics 
capabilities  may  also  be  used  to  provide  a  printed  copy  of 
the  video  display.  The  resolution  of  the  printer  graphics 
should  at  least  match  that  of  the  video  display,  but  will 
more  likely  be  greater.  Drawing  vertical  lines  on  some  dot 
matrix  printers  is  a  problem  because  of  gaps  between  printed 
lines.  This  would  produce  a  hard  to  read  plot  and  would  be 
unacceptable.  The  printer  must  be  able  to  produce 
continuous  lines  in  both  horizontal  and  vertical  directions. 

Additional  plotting  routines  will  be  required  to 
support  a  dot  matrix  printer.  Both  the  video  display  and  the 
plotter  may  be  randomly  addressed,  in  the  sense  that  lines 
may  be  drawn  between  any  two  points  independent  of  what  has 
already  been  drawn,  or  what  will  be  drawn  next.  A  dot  matrix 
printer  requires  that  the  entire  picture  first  oe  drawn 
either  in  memory  or  on  disk,  because  the  paper  can  not  be 
reversed  without  a  great  loss  of  accuracy.  For  each  line  to 
be  printed,  all  of  the  dots  must  be  known  beforehand. 


Summary  of  Specific  Requirements 


In  addition  to  the  general  requirements,  the  following 
specific  requirements  must  be  met  to  ensure  practical 
implementation : 

Board  Parameters 

Maximum  Size  of  8  inches  by  12  inches 
At  least  2  layers,  maximum  of  4 
Fixed  grid  size  of  at  least  50  mils 

Circuit  Complexity 

Upper  limit  of  1  I.C.  per  square  inch 

Computer  Specifications 

48K  of  Random  Access  Memory  as  bare  minimum 
Two  single  sided  single  density  8"  or  single  sided 
douole  density  5.25"  disk  drives 
Standard  ASCII  keyboard 
Graphics  Display  or  Terminal 
Plotter  Interface 

Operating  System 

Random  access  files 

Report  errors  to  applications  program 

Pascal 

Random  access  files 

Separate  compilation  of  procedures  and  functions 
Linking  with  machine  language  subroutines 
Conform  with  User  Manual  and  Report  standard 

Graphics  Display 

Bit  mapped  pixel  display 

Graphics  memory  accessible  for  reading  and  writing 
Resolution  of  at  least  40  points/inch 
Simultaneous  display  of  text  and  graphics 

Plotter  Output 

Absolute  X , Y  addressing 
Pen  up,  pen  down 

Resolution  of  at  least  100  points/inch 

Printer  Graphics 

Dot  addressable  graphics  capability 
Resolution  at  least  as  high  as  Graphics  Display 
Continuous  vertical  line  capability 
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Chapter  III 
System  Design 


The  PCB  layout  system  will  consist  of  the  following 
major  components:  command  processor,  component  and  board 
data  base,  and  layout  modules  (the  selecter,  connecter, 
placer,  and  router).  Lower  level  functions  include  the  disk 
interface,  graphics  interface,  and  text  I/O  modules, 
containing  all  procedures  dependent  on  the  hardware.  Figure 
III-l  is  a  top  level  block  diagram  showing  how  they 
interact.  Appendix  B  contains  the  details  about  the  Command 
Processor  files.  Appendix  C  defines  the  Component  and  Beard 
Data  structure,  and  Appendix  D  defines  the  format  of  the 
Project  Files. 
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Figure  III-1.  Overall  Block  Diagram 


Command  Processor 


Function 


This  module  defines  the  environment  that  the  designer 
operates  in.  Different  operating  systems  perform  the  same 
tasks  in  different  ways,  causing  confusion  for  operators 
wnen  they  switch  from  one  to  another.  Because  the  PCB  layout 
must  be  computer  independent,  the  resident  operating  system 
must  be  made  transparent  to  the  user.  The  Command  Processor 
will  basically  be  a  mini-operating  system  tnat  controls  the 
operation  of  the  computer's  resident  operating  system. 
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similar  to  a  shell  under  Unix. 

Requirements  Satisfied 

The  burden  of  user  friendliness  falls  mainly  on  the 
command  processor.  As  layout  modules  are  further  developed, 
the  only  thing  the  user  should  notice  is  an  improvement  in 
operation.  No  new  commands  will  have  to  be  learned.  Decause 
each  module  will  communicate  to  the  user  through  the  command 
processor.  If  tne  user  becomes  confused  at  any  point,  then 
help  will  be  available  immediately. 

A  major  function  of  the  command  processor  will  oe  error 
handling.  Operating  system  error  messages  are  usually 
difficult  to  understand,  and  cannot  be  relied  on  to  be 
specific.  For  example,  having  the  wrong  disk  in  a  drive  can 
lead  to  a  wide  variety  of  errors,  but  the  error  message 
reported  to  the  operator  probably  won’t  be  ’The  wrong  disk 
is  in  drive  I.  Please  insert  disk  ABC  and  press  any  key 
to  continue.’  General  purpose  operating  systems  can 1 1. 
provide  nice  error  messages  like  that  because  they  don’t 
know  what  the  operator  is  trying  to  do. 

Algorithm  independence  is  provided  oy  the  command 
processor.  The  initial  layout  modules  will  oe  very  skeletal 
in  function,  but  the  framework  will  exist  into  which  more 
complete  versions  can  be  inserted. 

Structure 

The  command  processor  will  consist  of  the  following 
major  modules  (see  figure  1 1 1  —  2 ) : 


1 1 1  -  3 


Resolve  Error:  As  mentioned  before,  the  command 
processor  will  be  responsible  for  the  majority  of  the  error 
handling.  This  module  will  perform  this  job  and  return 
control  to  the  proper  module,  if  possible. 

Determine  User  Identity:  This  module  will  be 
responsible  for  maintaining  an  updated  list  of  users  and 
their  passwords. 

Select  Option:  Each  user  will  have  a  list  of  projects 
he  is  currently  working  on.  This  module  will  allow  projects 
to  be  selected,  created,  deleted,  or  worked  on.  Projects  do 
not  have  to  be  completed  in  one  sitting,  and  tnis  module 
will  be  responsible  for  keeping  track  of  the  current  state 
of  each  project. 

Execute  Next  Module:  Once  a  project  is  selected  to  be 
worked  on,  the  appropriate  layout  module  must  be  called  in. 
This  module  is  responsible  for  transferring  control  to  the 
next  module. 
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Figure  I I 1-2.  Command  Processor 


Because  of  limited  memory  space  available  in  many 
micro-computers,  an  overlay  structure  will  be  implemented. 
Each  module  may  then  consume  all  memory  while  executing, 
with  control  flow  and  parameters  passed  between  modules  via 
an  argument  file  and  the  Command  Processor.  For  example,  if 
the  Placer  module  is  finished  and  the  Router  is  to  be 
executed,  the  Placer  will  prepare  a  command  file  and  load 
the  Command  Processor.  In  turn,  the  Command  Processor  will 
examine  the  command  file  and  execute  the  appropriate  module, 
the  router  in  this  case. 

The  only  entry  point  to  any  module  will  be  through  the 
Command  Processor,  and  all  modules  will  return  control  back 
to  the  Command  Processor.  This  way,  each  module  must  only 
know  how  to  invoke  one  other  module,  but  the  command 
processor  must  be  able  to  invoke  all  other  modules. 
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Function 

This  module  will  consist  of  the  component  and  board 
data  files  and  the  library  routines  required  to  maintain 
them.  Two  levels  of  information  will  be  maintained  - 
physical  and  logical.  The  physical  description  provides 
details  about  the  package,  such  as  how  many  pins  there  are, 
how  they  are  spaced,  etc.,  while  the  logical  description 
assigns  names  to  the  pins  and  to  the  component .  Library 
maintainence  functions  will  include  addition,  deletion,  and 
editing  of  component  and  board  entries  as  well  as  the 
selection  of  components  for  projects. 

Requirements  satisfied 

Algorithm  independence  depends  on  access  to  the 
required  information.  In  other  words,  no  matter  what 
algorithm  is  to  be  used  for  placement  or  routing,  the  same 
information  is  required  by  each.  The  selecter  is  responsible 
for  maintaining  enough  information  about  each  component  to 
satisfy  the  needs  of  any  router.  Also,  the  number  of 
components  selected  cannot  exceed  the  specified  maximum 
circuit  density  of  1  I.C.  per  square  inch.  If  new  boards  are 
defined,  they  must  not  be  allowed  to  exceed  the  maximum 
allowed  board  size. 

Structure 

The  main  modules  of  the  selecter  are  as  follows  (see 
figure  1 1 1  —  3 )  : 
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Figure  III-3.  Selecter 

Select  Board:  The  user  will  be  asked  to  select  from  the 
various  boards  available.  If  it  is  nor.  presently  in  the 
library,  then  the  user  will  be  asked  to  describe  all 
necessary  parameters. 

Select  Components:  This  module  is  very  similar  to  the 
previous  one,  but  there  are  many  components  to  select,  and 
only  one  board  per  project.  Additionally,  the  physical 
description  of  existing  components  may  be  used  when  defining 
new  components. 

Update  Catalog:  If  new  components  were  described  for 
the  project,  the  user  may  wish  to  add  them  to  the  library 
permanently.  Also,  existing  definitions  may  be  changed  if 
errors  were  made  in  the  original  entry  or  if  the  component 
actually  changes. 


If  the  Selecter  is  re-entered  after  a  portion  of  the 
board  has  been  routed,  a  portion  of  the  board  may  be 
extracted  and  added  to  the  component  catalog.  This  will 
essentially  be  a  "super-component",  but  it  will  be  treated 
like  all  other  components.  Because  the  component  physical 
definition  includes  a  provision  for  defining  traces,  it  will 
be  possible  to  use  common  circuits  on  many  projects. 

This  has  more  implications  for  other  types  of  circuit 
routing  than  printed  circuit  boards,  because  tne  components 
are  fixed  in  size  and  number  of  terminals.  For  VLSI  design, 
where  the  "wires"  used  for  routing  also  compose  the  circuit 
elements,  it  is  very  important  to  be  able  define  components 
in  terms  of  other  components. 

Interface 

The  Selecter  produces  a  project  file  containing  all 
necessary  information  about  the  components  and  the  board 
that  the  user  has  selected  from  the  catalog.  Each 
individual  project  will  have  its  own  subset  of  the  master 
catalog. 

Connecter 
Function 

The  Connecter  is  responsible  for  determining  from  the 
user  how  the  components  are  to  be  electrically  connected. 
Each  set  of  electrically  common  points  is  referred  to  as  a 
net,  and  is  usually  identified  by  some  signal  name. 
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To  allow  for  maximum  routing  flexibility,  connections 


will  be  specified  in  terms  of  logical  elements,  or  gates, 
instead  of  actual  component  pins.  For  example,  consider  a 
TTL  7400  Quad  NAND.  This  component  has  four  logically 
identical  two  input  NAND  gates,  which  are  independent  of 
each  other.  Each  gate  used  in  the  circuit  may  be  assigned 
to  any  one  of  the  available  positions  within  tne  component. 
Requirements  Satisfied 

While  the  command  processor  is  responsible  for  most  of 
the  user  friendliness,  the  layout  modules  must  ce 
interactive.  In  its  final  form,  the  connector  may  include 
complete  schematic  entry  editing  facilities,  but  *,he  initial 
implementation  will  not  include  this  capability.  Instead, 
the  user  will  identify  all  elements  associates  with  each 
net.  Then  for  each  net,  the  elements  will  be  ci awn  on  she 
display  with  available  terminals  highlighted.  Identification 
of  which  highlighted  terminals  should  be  connected  completes 
the  description  of  that  net. 

By  only  allowing  a  net  to  be  composed  of  terminals  not 
associated  with  any  other  net,  many  possible  errors  can  be 
avoided,  which  also  contributes  to  a  user  friendly  system. 
For  example,  elements  like  resistors  nave  two  terminals 
which  are  interchangeable  until  one  side  is  connected.  Once 
one  terminal  is  assigned  to  a  net,  it  becomes  unavailalle 
for  further  consideration. 
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Structure 


This  module  will  be  simple  in  structure  because  the 
user  will  be  doing  all  of  the  work.  Each  of  the  modules 
described  below  will  be  an  interactive  procedure.  Here  is 
the  general  job  required  of  the  connecter  (see  figure 
1 1 1-4 )  : 

Net  Identification:  The  user  will  be  asked  to  identify 
each  signal  net  by  name.  For  each  net,  the  user  will  be 
prompted  for  the  gates  or  elements  which  Delong  to  that  net. 
As  the  elements  are  identified,  they  will  be  displayed  on 
the  screen  with  available  terminals  highlighted.  Once  the 
net  elements  have  been  selected,  the  user  will  be  asked  to 
identify  which  of  the  available  terminals  belong  to  the  net 
being  defined. 

Note  that  the  components  selected  previously  will 
determine  the  elements  which  are  available  to  choose  from. 
For  example,  each  7400  component  provides  four  2  input  NAND 
elements  to  the  pool.  Other  components  correspond 
one-to-one  with  logical  elements,  such  as  discrete  resistors 
and  capacitors. 

Net  Editing:  After  all  the  nets  have  been  defined  by 
the  user,  any  element  with  unused  terminals  will  be 
displayed  for  verification  by  the  user.  At  this  time,  any 
previously  described  net  may  be  edited. 
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Figure  II 1-4.  Connecter 


Interface 

The  project  file  will  be  updated  to  indicate  the  names 
of  the  signal  nets  and  which  elements  belong  to  each  net.  If 
a  component  consists  of  more  than  one  element,  then  final 
assignment  of  elements  to  components  will  be  handled  by  the 
next  module,  the  placer. 

Placer 

Function 

The  Placer  will  decide  where  to  position  the  components 
on  the  board  and  will  assign  elements  to  components  in  order 
to  make  the  routing  job  as  easy  as  possible.  Although 
automatic  placing  algorithms  have  been  developed,  the  first 
implementation  of  this  system  will  require  the  user  to  do 
the  actual  placing  and  gate  assignment. 
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Requirements  Satisfied 

Like  the  connecter,  the  placer  must  be  interactive  and 
user  friendly.  Interactive  graphic  displays  will  allow  the 
user  to  see  the  impact  of  certain  placements  as  he  goes 
along.  As  each  component  is  positioned  on  the  screen,  a  line 
will  be  drawn  from  each  of  its  terminals  to  the  closest 
terminal  in  the  same  net  already  placed.  The  resulting  mass 
of  lines  will  show  possible  congested  areas  and  be  a  guide 
to  further  placement.  Selection  of  whether  or  not  to  display 
the  lines  will  be  under  the  control  of  the  user,  and  can  be 
toggled  at  will.  As  components  are  positioned,  the  maximum 
circuit  density  cannot  be  exceed.  The  placer  is  responsible 
for  enforcing  this  requirement. 

Structure 

The  component  placement  problem  consists  of  three 
subtasks  as  outlined  below  (see  figure  1 1 1  —  5 )  : 

Initial  Placement:  For  each  net  in  the  project  file, 
the  components  involved  will  be  displayed  on  the  screen. 
Each  component  will  be  positioned  on  the  board  by  the  user. 
The  nets  with  the  most  components  will  be  positioned  first 
so  that  they  can  be  grouped  together. 

Element  Assignment:  When  all  of  the  components  are  in 
place,  the  user  may  wish  to  rearrange  the  element-component 
assignments.  This  will  be  easier  to  visualize  once  the 
components  are  in  position. 
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Placement  Improvement:  Improvements  to  placement  may  be 
made  by  exchanging  components,  either  automatically  or  under 
user  control.  Initially,  the  user  will  be  in  total  control 
of  the  placement  process,  but  future  versions  may  include 
automatic  placement. 

The  process  of  reassigning  elements  may  be  repeated 
after  the  components  are  rearranged  until  the  user  is 
satisfied  with  the  positions. 
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Figure  III-5.  Placer 


Interface 

Once  the  components  are  positioned,  the  placer  will 


resolve  the  references  to  the  net-list  in  the  project  file, 
assigning  x  y  pin  coordinates  to  each  element  terminal. 


Router 

Function 

The  project  file  now  contains  the  names  and  terminal 
locations  of  each  point  to  be  connected  together.  The 
router's  job  is  to  correctly  connect  each  net  without 
cross-connections  with  other  nets  and  without  leaving  any 
net  portion  unconnected.  Several  algorithms  have  been 
discussed  in  the  literature,  which  fall  into  three  general 
catagories  -  maze,  line,  and  channel  routers.  Selection  of  a 
routing  algorithm  is  beyond  the  scope  of  this  thesis,  and 
tne  initial  implementation  will  basically  be  a  manual 
system,  in  which  the  user  decides  where  to  place 
connections.  However,  all  of  the  information  required  by  a 
routing  algorithm  is  available  along  with  the  necessary 
support  routines. 

Requirements  Satisfied 

Experimentation  with  different  routing  strategies  will 
be  made  much  simpler  with  the  support  provided  by  this 
system.  The  router  will  be  interactive  as  well.  Most  of  the 
specific  requirements,  however,  must  be  satisfied  by  the 
router,  such  as  the  grid  size,  and  the  number  of  layers. 
Structure 

There  are  many  ways  to  partition  the  routing  problem, 
and  here  are  the  most  basic  steps  to  be  completed  (see 
figure  1 1 1  —  6 ) : 
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From-to  determination:  There  are  many  ways  to  connect  a 
given  list  of  terminals  together  into  a  net.  Usually  the 
closest  terminals  are  connected  together,  followed  by  the 
next  closest,  until  the  net  is  broken  down  into  a  set  of 
terminal  pairs,  often  referred  to  as  from-to  pairs  (FROM 
terminal  A  TO  terminal  B)  .  The  initial  implementation  will 
rely  on  the  user  to  do  the  from-to  determinations,  so  this 
module  will  simply  ask  the  user  to  decompose  each  net  into 
an  equivalent  set  of  terminal  pairs. 

Net  Ordering:  Now  that  the  nets  are  composed  of  pin 
pairs,  the  order  in  which  to  route  the  nets  must  be 
determined.  Once  again,  the  shortest  nets  are  usually  routed 
first,  but  some  routers  ignore  net  groupings  and  simply 
route  individual  from-to's,  while  others  ignore  from-to 
groupings  and  route  entire  nets  at  a  time.  In  any  case,  some 
order  must  be  chosen  by  the  router.  Once  again,  the  user 
will  be  asked  to  decide  in  what  order  he  wishes  to  route  the 
nets.  Help  will  be  available  in  the  form  of  information 
about  the  sizes  of  the  remaining  nets. 

Routing:  With  information  about  specific  terminals  to 
be  connected,  the  router  is  responsible  for  finding  a  legal 
path  between  those  terminals.  The  initial  implementation 
will  require  the  user  to  identify  where  to  place  traces  to 
connect  terminals.  The  terminals  to  be  connected  will  be 
highlighted  on  the  display,  and  the  user  will  not  be  allowed 
to  violate  any  design  rules  during  the  routing  process. 


Plotting:  Once  a  circuit  or  a  portion  of  a  circuit  has 
been  routed,  the  user  may  want  to  generate  a  plot  for  closer 
examination.  This  plot  may  be  drawn  to  any  scale  desired, 
and  any  section  of  the  board  may  be  isolated.  Because  the 
plotting  will  take  much  longer  than  drawing  on  the  screen 
display,  it  should  only  be  used  when  the  details  omitted 
from  the  screen  are  important. 


Figure  III-6.  Router 


Interface 

All  of  the  information  required  by  the  router  is 
present  in  the  project  file.  As  routing  proceeds,  partially 
completed  results  will  be  maintained  in  the  project  file  to 
allow  work  to  be  spread  out  over  many  sessions  if  desired. 
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System  Support  Routines 

Graphics  Routines 

All  of  the  layout  modules  will  require  the  use  of  the 
grapnics  display.  To  support  them,  a  set  of  universal 
graphics  interface  procedures  will  link  the  portable  Pascal 
modules  to  the  machine  dependent  hardware. 

Two  levels  of  procedures  will  be  written  -  those 
supporting  basic  and  advanced  features.  Basic  features 
include  individual  pixel  control  and  clearing  the  screen. 
Advanced  features  include  drawing  lines  and  boxes.  All  of 
the  advanced  features  will  be  written  in  portable  Pascal  and 
will  call  the  basic  routines.  If  the  graphics  display 
hardware  supports  one  or  more  of  the  advanced  features,  the 
implementer  may  replace  the  appropriate  subroutine  with  a 
machine  dependent  equivalent  that  satisfies  the  calling 
sequence . 

Text  I/O 

To  support  the  user  friendly  nature  of  the  system,  a 
query  module  will  provide  features  such  as  input  validation, 
error  messages,  and  on-line  help.  By  sending  all  requests 
for  information  through  the  query  module,  the  format  will  be 
identical . 

A  menu  selection  module  will  De  availaole  to  allow  the 
user  to  select  from  among  many  choices  in  a  consistent 
manner.  As  with  the  query  module,  all  of  the  menus  will  have 
the  same  structure  and  commands  wnich  will  aid  the  user. 


Floppy  Disk  Management 

The  entire  system  cannot  be  assumed  to  be  available 
on-line  at  all  times.  For  example,  the  program  modules,  data 
base  files,  and  project  files  must  be  allowed  to  be  spread 
out  over  several  physically  separate  floppy  disks.  Because 
this  will  require  the  user  to  change  disks,  the  possibility 
of  operator  error  is  greatly  increased.  To  catch  these 
errors  and  be  able  to  recover  from  them  requires 
maintainence  of  a  global  directory. 

The  global  directory  will  contain  information  on  the 
contents  of  each  of  the  sub-directories.  When  a  file  needs 
to  be  opened,  the  global  directory  will  indicate  which 
physical  disk  must  be  present.  A  check  can  then  be  made  to 
verify  its  availability,  and  prompt  the  operator  if  a  disk 
switch  is  necessary. 

In  addition  to  identifying  which  disk  the  operator  was 
supposed  to  insert,  the  system  will  be  able  to  tell  what 
disk  actually  was  inserted.  Each  separate  disk  will  contain 
an  identification  file.  The  disk  management  routines  will 
ensure  that  the  global  directory  is  kept  current  to  avoid 
inconsistencies . 

Basic  file  maintainence  routines  will  include  creation 
and  deletion  of  files,  and  adding  and  deleting  records  from 
files.  The  files  will  be  composed  of  fixed  length  records 
that  may  be  linked  togetner  in  a  list.  Access  to  files  may 
be  either  direct  (  by  physical  record  number  )  or  indirect  ( 
using  the  list  structure  ).  This  will  allow  variaole  length 


Chapter  IV 
Detailed  Design 


This  chapter  will  describe  in  further  detail  the  design 
of  the  command  processor  and  the  text,  graphics,  and  file 
management  routines.  The  routines  form  the  core  of  the  user 
interface  and  were  designed  to  ease  implementation  of  the 
other  modules.  The  command  processor  uses  the  text  and  file 
management  routines;  they  will  be  discussed  first,  followed 
oy  a  description  of  the  required  grapnics  routines. 

Notation 

Different  typestyles  are  used  in  figures  IV-i.O  through 
-3.15  to  identify  items  as  follows: 

Lower-case  boldface  is  used  for  variable  names 

Upper-case  BOLDFACE  is  used  for  File  names 
Text  I/O  Routines 
Query  Modules 

The  query  modules  are  responsible  for  obtaining  all 
information  from  the  user  that  requires  numeric  or  string 
responses.  The  Help  module  is  invoked  if  the  user  enters  a 
question  mark  ('?')  at  any  prompt.  Editing  functions  include 
insertion,  deletion.  See  figures  IV-1.0  to  -1.4  for  more 
details . 

Querynum  -  Accepts  numeric  responses 
Checks  for  range 
Converts  answer  to  default  units 
Querystr  -  Accepts  textual  responses 
Checks  for  length 

Converts  answer  to  upper  or  lower  case 
QueryY/N  -  Accepts  Yes  or  No  answers 


Module  Name:  Querynum 


Level :  1 


Called  by:  System  Routine  available  to  all  modules 


Calls:  Getnumber 


Function:  The  user  will  be  asked  for  a  numeric  answer  to  a 
question.  The  result  will  be  converted  to  the  default  units 
and  checked  against  the  minimum  and  maximum  values  allowed. 
If  the  user  wants  help,  it  will  be  available. 


Entry  Conditions:  prompt  =  Question  the  user  is  being 
asked,  units  =  units  (mils,  inches,  mm,  none)  from  which 
the  answer  will  be  converted,  min  and  max  are  the  limits  on 
a  valid  response,  and  help  index  =  entry  into  HELP  FILE. 


Exit  Conditions:  answer  will  contain  the  response  entered 
by  the  user  which  has  been  converted  to  the  default  units 
(mils  or  none) .  It  will  lie  in  the  range  min  to  max. 


Pseudo  Code: 

Begin  Querynum (prompt, units, min, max, answer ,help  index; 
Repeat 

Move  cursor  to  querybox 

Display  prompt,  blank  space,  units 

Convert  min  and  max  to  proper  units 

Display  'Range:',  min  to  ',  max 

Getnumoer (  answer  ,  help  request,  unit  change  ) 

If  unit  change  is  set 
Then  Case  units  of 

none:  do  nothing 
mils:  units  =  inches 
inches:  units  =  mm 
mm:  units  =  mils 
If  help  request  is  set 

Then  Help  (  help  index  ) 

Convert  answer  to  units 
Check  for  range  violation 
If  there  is  a  range  violation 
Then  Move  cursor  to  errorbox 

Display  'Response  not  within  specified  range' 
Until  no (help  request  or  range  violation  or  unit 
change) 

End . 


Figure  IV-1.0  Numerical  Query  Function 


Module  Name:  Getnumber 


Level  :  2 


Called  by:  Querynum 


Function:  The  following  characters  will  be  accepted  from  the 
terminal:  the  digits  0-9,  a  decimal  point,  and  a  comma. 
Additionally,  the  following  editing  functions  will  be 
recognized:  Left  and  Right  Arrows  will  move  the  cursor,  ~S 
will  insert  a  space  at  cursor,  ~D  will  delete  the  character 
under  the  cursor,  ?  will  ask  for  help,  ~U  will  request  a 
change  in  units,  and  Return  will  terminate  entry.  When 
Return  is  pressed,  the  string  of  digits  will  be  converted 
into  a  number.  If  a  unit  change  was  specified,  the  unit 
change  flag  will  be  set. 


Exit  Conditions:  answer  will  contain  the  numeric  value  of 
the  number  string  that  was  entered,  help  request  will  be 
set  if  help  was  asked  for.  unit  change  will  oe  set  if  the 
units  were  requested  to  be  changed  by  the  user. 


Pseudo  Code: 

Begin  Getnumber  {  answer,  help  request,  unit  change  ) 
Move  cursor  to  end  of  prompt 
Repeat 

Get  character  from  keyboard 

Case  character  of 
'O' -'S':  Add  character  to  string 
Echo  character 
'  .  '  :  If  point  is  set 

Then  do  nothing 
Else  set  point 
Echo  ' . ' 

' , ' :  Echo  '  ,  ' 

~S:  Insert  space  in  string 
~D:  Delete  space  in  string 
leftarrow:  If  cursor  at  first  character 
Then  do  nothing 

Else  Move  cursor  left  one  character 
rightarrow:  If  cursor  at  last  character 
Then  do  nothing 

Else  Move  cursor  right  one  character 
return:  Convert  string  to  answer 
'?':  Set  help  request 
Until  (  character  =  return  or  '?'  or  ~U) 
tno . 

Figure  IV-1.1  Number  Editing 


Module  Name:  Querystr 


Level:  1 


Called  by:  System  Routine  available  to  all  modules 


Calls:  Getstring 


Function:  The  user  will  be  asked  to  enter  a  text  answer  in 
response  to  a  question.  The  answer  will  be  converted  to 
uppercase  or  lowercase,  or  no  conversion  will  be  done.  The 
length  will  be  checked  against  minimum  and  maximum  allowed 
lengths.  If  help  is  requested,  it  will  be  provided. 


Entry  Conditions:  prompt  is  the  question  being  asked,  case 
will  indicate  the  type  of  case  conversion  to  be  done,  min 
and  max  will  bound  the  length  of  the  string,  and  help 
index  will  point  to  the  appropriate  entry  in  the  HELP 
FILE. 


Exit  Conditions:  answer  will  contain  the  validated  response 
from  the  user. 


Pseudo  Code: 


Begin  Querystr  (prompt ,  case,  min,  max,  answer,  help 
index) 

Repeat 

Move  cursor  to  querybox 

Display  prompt,  string  of  max  underlines 
Display  'Response  must  be  between* 
min  'and'  max  'characters' 

Getstring  (  answer,  min,  max,  help  request  ) 

If  help  request 

Then  Help  (  help  index  ) 

Until  no  help  request 
Case  case  of 

upper:  Convert  answer  to  UPPERCASE 
lower:  Convert  answer  to  lowercase 
none:  do  nothing 

End . 


Figure  IV-1.2  String  Query  Function 
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Module  Name:  Getstring 


Level:  2 


Called  by:  Querystr 


Function:  Any  printable  ASCII  character  string  will  be 
accepted  from  the  terminal.  The  string  will  be  checked  for 
length  before  control  returns  to  the  caller.  Editing 
functions  will  be  provided,  and  help  will  be  requested  if 
desired  by  the  user. 


Entry  Conditions:  min  and  max  contain  the  bounds  of  the 
length  allowed  for  the  string. 


Exit  Conditions:  answer  will  contain  the  response  entered 
by  the  user  and  help  request  will  be  set  if  the  user  asked 
for  help. 


Pseudo  Code: 

Begin  Getstring 

Move  cursor  to  end  of  prompt 

Repeat 

Get  character  from  terminal 
Case  character  of 

~S:  If  length  of  string  =  max 
Tnen  do  nothing 
Else  Insert  space  into  string 
~D:  If  length  of  string  *  0 
Then  do  nothing 

Else  Delete  character  from  string 
leftarrow:  If  cursor  at  left  end 
Then  do  nothing 

Else  move  cursor  left  one  character 
rightarrow:  If  cursor  at  right  end 
Then  do  nothing 

Else  move  cursor  right  one  character 
return:  If  lengtn  of  string  <  min 
Then  character  =  null 
Else  answer  =  string 
'?':  Set  help  request 
Printable  char:  Add  character  to  string 
Anything  else:  character  =  null 
Until  character  =  return  or  '?’ 

End . 

Figure  IV-1.3  String  Editing 


Module  Name:  Queryy/n  Level:  1 


Called  by:  System  Routine  available  to  all  modules 


Calls:  Getstring 


Function:  A  yes  or  no  response  is  requested  from  the  user. 
Anything  that  starts  with  a  'y'  will  be  a  yes,  anything  that 
starts  with  an  'n'  will  be  a  no,  and  anything  else  will  not 
be  accepted.  Help  will  be  available  if  required. 


Entry  Conditions:  prompt  =  question  being  asked  and  help 
index  *  pointer  to  help  message  in  HELP  FILE. 


Exit  Conditions:  answer  will  be  Yes  or  No 


Pseudo  Code: 

Begin  Yesno  (  prompt,  answer,  help  index  ) 

Repeat 

Move  cursor  to  Querybox 
Display  prompt 

Display  'Please  respond  with  Yes  or  No' 
Getstring  (  string,  1,  3,  help  request  ) 

If  help  request  is  set 

Then  Help  (  help  index  ) 
character  =  First  character  of  string 
Case  character  of 

'Y','y':  answer  =  Yes 

'N'j'n':  answer  =  No 

Anything  else:  answer  =  I  dunno 

Until  answer  =  Yes  or  No  and  no  help  request 

End . 

Figure  IV-1.4  Boolean  Query  Function 


The  function  Menu  reads  a  structured  menu  from  the  MENU 
FILE  and  asks  the  user  to  make  a  selection.  A  global 
variable  identifies  the  menu  which  is  currently  in  memory. 
If  the  menu  to  be  displayed  is  the  same  one  already  in 
memory,  then  it  won't  be  read  in  again  from  the  disk.  If  a 
different  menu  is  requested,  then  the  old  one  will  be 
disposed  of  and  replaced  with  the  requested  one.  See  figures 
IV-2.0  and  IV-2.1  for  more  information. 

In  addition  to  fixed  format  menus  stored  in  the  MENU 
FILE,  the  menu  manipulation  routines  may  also  be  used  with 
variable  information,  such  as  the  list  of  the  names  of  the 
current  users'  projects.  The  three  procedures  Init  List, 
Build  List,  and  Select  List  are  provided  to  allow  the 
programs  to  dynamically  create  menus. 

Regardless  of  the  method  used  to  generate  the  menu  or 
list,  the  appearance  to  the  user  is  the  same.  Each  of  the 
choices  is  listed  on  the  screen,  with  a  moveable  cursor  to 
the  left.  The  up  and  down  arrows  are  used  to  position  the 
cursor  next  to  the  item  of  interest.  Pressing  RETURN  will 
select  the  item,  and  pressing  ?  will  provide  any  available 
help  for  the  item. 


The  format  of  the  menu  (in  memory)  is  as  follows: 

Item  Text  :what  the  user  sees  on  the  screen. 

Item  Code  rvalue  returned  if  this  item  is  selected. 

Help  Index  :Help  message  index  into  HELP  file. 

Next  Item  : pointer  to  the  next  item  of  the  menu. 

Previous  Item  rpointer  to  the  previous  menu  item. 

Next  Level  ipointer  to  another  menu.  If  this  is  not 
nil  and  this  item  is  selected,  the  next 
level  menu  will  be  displayed. 

Text  I/O  Screen  Organization 

The  modules  Query  and  Menu  refer  to  three  separate 
areas  of  the  display:  the  Querybox,  the  Menubox,  and  the 
Helpbox.  These  areas  may  not  overlap  on  the  screen.  If  the 
cursor  is  moved  to  the  Helpbox,  for  example,  then  whatever 
is  already  there  will  be  erased.  After  the  help  messagt  has 
been  displayed,  then  the  box  will  be  left  empty. 

Tc  allow  for  various  terminal  screen  sizes,  the  10 

module  contains  all  information  regarding  the  location  ...nd 
size  of  the  various  screen  areas.  A  function.  Get  Count, 
returns  me  number  of  lines  that  have  been  allocated  to  each 


area.  Cursor  positioning  is  also  performed  relative  the 
origin  of  one  of  the  screen  areas. 


Module  Name:  Menu 


Level:  1 


Called  by:  System  Routine  available  to  all  modules 


Calls:  Display  Menu,  Select  Menu  Item 


Function:  A  menu  of  choices  will  be  displayed  that  will  fit 
on  the  display  all  at  once.  A  cursor  will  be  moved  by  the 
user  until  the  item  to  be  selected  is  next  to  the  cursor. 
Return  is  pressed  to  make  the  selection.  To  allow  for  large 
menus,  an  item  may  have  sub  selections.  When  one  of  these 
items  is  selected,  the  next  level  of  menu  will  be  displayed. 
Control  will  not  return  to  the  caller  until  a  terminal  menu 
item  is  selected.  Help  will  be  provided  if  necessary. 


Entry  Conditions:  menu  index  will  point  to  the  location 
within  the  MENG  FILE  which  defines  the  menu  structure.  The 
global  variable  current  menu  contains  the  menu  index  of 
the  last  menu  displayed. 


Exit  Conditions:  selection  will  contain  the  code  for  ,e 
selected  terminal  menu  item. 


Pseudo  Code: 

Begin  Menu  (  menu  #,  selection  ) 

If  current  menu  <>  menu  # 

Then  Erase  old  menu  from  memory 

Transfer  menu  from  MENU  FILE  into  memory 
current  menu  =  menu  # 
menu  index  =  First  menu  item 
Menu  Display  (  menu  index,  selection  ) 

End. 

Begin  Menu  Display  (  menu  index,  selection  ) 

Move  cursor  to  Menubox 
index  =  menu  index 
Repeat 

Display  index . selection  text 
index  =  index. next  item 
Until  index  =  nil 
Move  cursor  to  first  line  of  menu 
Select  Menu  I  tern 
End . 

Figure  IV-2.0  Menu  Driver  Routine 


Module  Name:  Select  Menu  Item 


Level :  2 


Called  by:  Menu  Display 


Calls:  Menu  Display  (recursive  call  for  nested  menus) 


Function:  From  the  items  displayed,  the  user  will  select 
one.  If  the  choice  points  to  more  choices,  then  Menu  Display 
will  be  called  recursively  until  a  terminal  item  is 
selected. 


Entry  Conditions:  menu  index  is  a  pointer  to  the  dynamic 
list  which  contains  the  information  about  the  current  menu 
choices . 


Exit  Conditions:  selection  will  contain  the  code  of  the 
selected  terminal  node. 


Pseudo  Code: 

Begin  Select  Menu  Item 

index  =  menu  index 

Repeat 

Get  character  from  terminal 
Case  character  of 

uparrow:  If  index. previous  item  =  nil 
Then  do  nothing 
Else  move  cursor  up  one  line 

index  =  index. previous  item 
downarrow:  If  index. next  item  =  nil 
Then  do  nothing 

Else  move  cursor  down  one  line 
index  =  index. next  item 
'?':  Help  (  help  index  ) 

Move  cursor  back  to  line 
return:  If  index. next  level  =  nil 

Then  selection  =  index. item  code 
Else  Display  Menu  (  index. next  level, 

selection  ) 

If  selection  =  none  of  the  choices 
Then  character  =  null 
escape:  selection  =  none  of  the  choices 
Until  (  character  =  return  or  escape  ) 

End . 

Figure  IV-2.1  Menu  Selection  Function 


File  Management  System 


Basic  File  Access  -  Trie  LinkFile  Module 

Both  sequential  and  random  access  files  will  be 
required  to  fully  support  the  layout  modules.  For  stable 
files,  such  as  the  Help  and  Menu  files,  purely  sequential 
access  is  adequate.  Other  files  are  dynamic  in  content,  but 
will  still  be  accessed  sequentially  most  of  the  time.  To 
allow  for  ease  of  sequential  list  management,  a  linked-list 
file  format  is  used.  Each  linked  file  has  an  index  field 
which  forms  a  doubly-linked  circular  list  of  allocated 
records.  All  records  not  belonging  to  the  allocated  list 
are  collected  in  another  list  called  the  Free  list. 
Pointers  to  the  head  of  each  list  are  maintained  external  to 
the  file  in  the  global  directory.  Direct  access  to  any 
record  is  possible,  but  care  must  be  taken  to  avoid 
accessing  unallocated  records.  Appendix  A  contains  a  full 
description  of  the  basic  file  format. 

A  global  array  called  Files  maintains  all  the 
information  required  to  access  any  file,  including  the 
linked  list  pointers.  The  current  implementation  provides 
slots  for  ten  files.  All  files  are  assigned  a  slot  number, 
and  all  file  activity  is  referenced  to  a  particular  slot.  To 
keep  file  buffer  overhead  down,  only  two  files  may  be 
silmultaneously  open,  but  the  actual  assignment  of  a  file 
slot  to  a  buffer  is  automatic  and  transparent  to  the  user. 
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The  following  procedures  and  functions  provide  full 
support  for  both  sequential  and  random  access  to  a  file: 

InitF:  Initialize  a  slot  in  the  Files  array  -  All 
information  necessary  to  access  the  file  must  be  provided, 
including  the  physical  location  of  the  file  and  the  access 
mode.  Files  may  be  initialized  as  either  linked  or 
unlinked . 

ResetF :  Set  the  pointers  to  access  the  first  record  of 
the  file  -  for  linked  files,  this  will  be  the  head  of  the 
list,  and  for  unlinked  files,  the  first  physical  record. 

StateF :  Return  the  current  values  of  the  pointers 

R o o m F ;  Return  the  number  of  unallocated  records 
available 

ReadF :  Read  the  next  sequential  logical  record,  and 
update  pointers.  Successive  calls  to  ReadF  will 
sequentially  access  all  the  records  in  the  file.  If  the  file 
is  linked,  the  link  field  will  determine  the  order  of 
access.  Unlinked  files  are  accessed  in  physical  record 
number  order. 

WriteF :  If  the  file  is  linked.  Re-write  the  last  record 
accessed.  The  pointers  are  not  changed,  so  successive  calls 
to  WriteF  will  result  in  the  same  record  being  accessed.  If 
the  file  is  not  linked,  then  successive  calls  will  access 
sequential  records. 

InsertF :  Insert  a  new  record  into  the  file  after  the 
current  record.  This  procedure  returns  the  actual  record 
number  assigned  to  the  record,  so  that  it  may  be  accessed 
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directly  later.  Because  of  the  linked  list  structure,  the 
physical  position  of  any  record  will  not  change  once  it  is 
created,  regardless  of  the  number  of  insertions  or 
deletions.  This  is  only  valid  for  linked  files. 

DeleteF :  Delete  the  current  record  from  the  list  and 
return  it  to  the  free  list.  Care  must  be  taken  when  deleting 
records  that  are  pointed  to  by  other  files.  This  also  is 
only  valid  for  linked  files. 

CreateF:  Tnis  procedure  makes  a  new  index  for  a  file, 
and  assigns  all  of  the  records  to  the  free  list.  None  of 
the  actual  file  records  are  altered,  but  they  become 
essentially  inaccessable. 

PosF :  Position  the  pointers  to  any  desired  record. 
Care  must  be  taken  to  avoid  accessing  records  that  are  part 
of  the  free  list,  if  the  file  is  linked.  To  avoid  problems, 
the  record  number  returned  by  the  insertF  procedure  should 
be  saved  if  random  access  is  desired.  This  may  tnen  be 
safely  used  to  position  the  pointers,  provided  the  recora 
has  not  been  deleted. 

Global  Directory 

The  global  directory  keeps  track  of  all  files  that  the 
printed  circuit  board  layout  system  knows  about.  Although 
simple  in  structure,  it  maintains  enough  information  to 
locate  any  file.  Internal  filenumbers  used  by  the  layout 
modules  must  oe  paired  up  with  actual  system  filenames 
before  tney  can  be  accessed.  The  layout  modules  will  only  be 
working  with  one  project  at  a  time,  so  each  internal 
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filename  may  refer  to  many  different  physical  files,  one  for 
each  project.  Here  is  the  structure  of  a  global  directory 
entry: 

Module  I . D . :  Indicates  the  modules  which  may  refer  to 
this  file.  Implemented  as  a  boolean  array  indexed  by  module 
name,  with  a  TRUE  value  if  the  corresponding  module  may 
access  the  file.  Any  combination  of  the  flags  is  ok, 
meaning  that  more  than  one  module  may  refer  to  a  particular 
file . 

File  Num:  The  basic  file  management  system  maintains  an 
array  of  10  file  slots.  This  field  is  the  slot  number  the 
file  will  use  when  it  is  active. 

Project  I.D.:  The  unique  reference  number  assigned  to 
the  project  to  which  the  file  belongs.  Two  special  cases  are 
also  represented  here  -  a  zero  value  indicates  access  to  the 
file  is  independent  of  the  current  project,  such  as  a  HELP 
or  MENU  file.  A  value  of  -1  is  used  for  those  files  not 
accessed  by  any  project,  or  to  indicate  a  template  entry 
(see  explanation  of  template  entries  in  Appendix  B) . 

How  Many:  The  number  of  logical  records  that  have  been 
allocated  to  this  file.  When  a  file  is  created,  this  field 
is  used  to  determine  how  much  disk  space  is  required  for  the 
file. 

Linked:  A  boolean  flag  indicating  whether  or  not  the 
file  is  linked. 
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File  Name:  A  character  array  containing  the  system 
dependent  file  name  used  by  the  operating  system  to  access 
the  file. 

Drive:  The  disk  drive  into  which  the  diskette 
containing  the  file  must  be  inserted.  If  incompatible  disk 
drives  or  formats  are  being  used  simultaneously,  this  will 
prevent  the  system  from  prompting  for  a  diskette  to  be 
inserted  into  the  wrong  drive. 

Disk  I.D.:  The  unique  reference  number  assigned  to  the 
diskette  on  which  the  file  resides.  This  number  will  be 
written  on  the  diskette  laoel  and  recorded  on  the  diskette 
itself  in  the  identification  file  described  below. 

Rec  Len:  The  logical  record  length  is  maintained  in 
this  field.  The  current  CP/M  implementation  requires  that 
this  be  less  than  or  equal  128  bytes.  Because  random  access 
files  are  not  part  of  the  Pascal  standard,  this  restriction 
ensures  maximum  compatability  between  different  compilers. 

Rees  Avail :  This  field  indicates  how  much  room  is  left 
in  the  file.  The  value  may  range  from  zero,  indicating  a 
full  file,  to  How  Many,  indicating  an  empty  file. 

First :  The  record  number  of  the  first  logical  file 
entry.  All  linked  files  are  maintained  as  a  linked  list  of 
records,  and  tnis  field  points  to  the  head  of  the  list.  A 
value  of  -1  indicates  an  empty  file. 

Free :  The  record  number  of  the  next  unal]ocated  record. 
The  total  number  of  allocated  and  unallocated  records  will 


always  equal  How  Many. 


The  last  seven  fields  are  used  to  initialize  a 
particular  file  slot,  as  described  in  Appendix  A. 

DiskID  Module 

Each  diskette  will  contain  a  small  identification  file, 
which  will  uniquely  identify  it  with  a  diskid  number.  This 
number  will  also  be  written  on  the  label  of  the  diskette  so 
the  user  will  be  able  to  identify  it.  The  global  directory 
will  keep  track  of  all  files  on  each  disk  and  the  user  will 
be  prompted  whenever  a  diskette  switch  is  necessary.  The 
following  procedures  have  been  implemented  to  oversee  the 
disk  switching  operations: 

Whichdisk :  A  function  that  returns  the  number  of  the 
disk  currently  mounted  on  the  indicated  drive.  If  the  disk 
is  not  labelled  (i.e.,  is  not  one  of  the  layout  system 
disks)  then  a  value  of  zero  is  returned. 

SwitchdisK :  The  user  will  be  prompted  to  switch  disks 
if  necessary,  after  any  open  files  on  the  current  disk  have 
been  closed.  A  check  will  be  made  to  ensure  that  the  user 
inserted  the  proper  disk. 

NewDisk :  A  currently  unlabelled  disk  is  labelled,  and 
the  user  is  told  to  physically  identify  the  disk  on  the 
label.  This  disk  id  number  is  the  only  way  the  system  will 
prompt  for  disks,  so  it  is  important  for  the  number  to  be 
recorded  correctly! 
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Argument  Module 

To  provide  for  communication  between  the  Command 
Processor  and  the  other  layout  modules,  the  ARGUMENT  FILE 
contains  any  necessary  parameters.  When  control  is 
transferred  to  another  module,  the  information  from  the 
global  directory  concerning  the  files  required  for  the 
current  project  and  module  to  be  executed  is  loaded  into  the 
ARGUMENT  FILE.  Conversely,  when  the  Command  Processor 
regains  control,  it  loads  the  contents  of  the  ARGUMENT  FILE 
to  update  tne  global  directory  and  state  of  the  current 
project.  The  following  procedures  have  been  implemented  to 
support  these  activities: 

Read  Args :  Load  the  current  state  of  the  system  as 
determined  by  the  contents  of  the  ARGUMENT  FILE  header,  and 
update  the  global  directory  for  each  file  entry.  (See 
Appendix  B  for  a  description  of  the  ARGUMENT  FILE 
structure . ) 

Update  Header:  Save  the  current  state  of  the  system  in 
the  ARGUMENT  FILE  header. 

Load  Args :  Look  up  all  the  files  required  by  the  next 
module  in  the  global  directory  and  copy  the  information  to 
the  ARGUMENT  FILE. 

LoadFile  Module 

The  complimentary  routines  to  the  Argument  Module  are 
contained  in  the  LoadFile  Module.  These  two  routines  will  be 
the  first  and  last  statements  of  every  subordinate  module, 
completing  the  parameter  passing  loop. 

IV-17 


■  ■  - ■>  v  -A-  '-ft 


Initialize:  Reads  the  system  state  and  parameters 
passed  from  the  Command  Processor.  All  other  system  module 
initialization  is  also  performed  here. 

Return:  Updates  the  ARGUMENT  FILE  and  returns  control 
to  the  Command  Processor. 

Comnand  Processor 

The  next  section  details  the  design  of  the  command 
processor.  Each  main  portion  of  the  design  is  preceded  with 
a  chart  showing  the  modules  to  be  described  with  a  double 
line  box  around  it,  and  tne  others  have  single  line  boxes. 


Module  Name:  Command  Processor 


Level 


Called  by:  Initial  Entry  to  System 
Selecter,  Connecter,  Placer,  Router 


or  upon  return  from 


Executes:  Selecter,  Connecter,  Placer,  Router 


Calls:  Determine  User  Identity,  Select  Option,  Resolve 
error.  Execute  next  module 


Function:  Controls  the  Entire  PBC  design  process.  Directs 
the  execution  of  the  major  layout  modules  and  is  the  primary 
interface  with  the  operator. 


Entry  Conditions:  The  ARGUMENT  file  contains  information 
about  the  current  project. 


Exit  Conditions:  After  determining  what  to  do  next,  the 
ARGUMENT  file  will  be  updated  and  the  next  major  module 
will  be  executed. 


Pseudo  Code: 

Begin  Command  Processor 
Look  at  ARGUMENT  file 
Repeat 

If  error 

Then  Resolve  Error 

If  current  project  is  Null  and  no  error 
Then  Determine  User  Identity 
If  valid  user  no  error 
Then  Select  Option 
If  no  error 

Then  Execute  Next  Module 
Until  no  error 
End . 

Figure  IV-3.1  Command  Processor  Main  Routine 
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Module  Name:  Resolve  Error 


Level:  1 


Called  by:  Command  Processor 


Function:  Errors  that  occur  during  the  execution  of  tne 
other  Layout  modules  (Selecter,  Connecter,  Placer , Router) 
may  require  handling  help  from  the  Command  Processor.  If 
so,  the  error  condition  is  communicated  through  the  error 
parameter  in  the  ARGUMENT  file.  The  appropriate  corrective 
action  is  initiated,  and  the  ARGUMENT  file  is  updated. 


Entry  Conditions:  error  indicates  the  cause  of  the  error. 


Exit  Conditions:  Action  appropriate  to  the  error  will  have 
been  completed,  and  the  ARGUMENT  file  will  reflect  the 
changes,  if  any. 


Pseudo  Code: 

Begin  Resolve  Error 
Case  error  of: 

Error  code  -  Error  routine 


If  error  is  external 

Then  Reset  error  in  ARGUMENT  file 

End . 

Figure  IV-3.3  Error  Handler 
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Figure  IV-3.4  Determine  User  Identity  Modules 
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Module  Name:  Determine  User  Identity 


Level 


Called  by:  Command  Processor 


Create  New  User,  Verify  Identity 


Function:  Asks  the  user  to  identify  himself.  The  name  is 
then  looked  up  in  the  LIST  OF  USERS.  Unknown  users  will  be 
asked  if  they  wish  to  be  added  to  the  system. 


Entry  Conditions:  Command  Processor  has  been  entered  for  the 
first  time  and  needs  to  know  wno  the  user  is.  No  arguments 
are  passed. 


Exit  Conditions:  valid  user  is  set  if  the  user  is  valid, 
current  user  will  identify  who  the  user  is. 


Pseudo  Code: 


Begin  Determine  User  Identity 
Repeat 

name  =  Query "Who  are  You?" 

Look  up  name  in  LIST  OF  USERS 
If  name  is  not  found 

Then  typo  =  Query "Did  you  enter 

your  name  correctly?" 

Until  no  typo 
If  name  is  not  found 
Then  Create  New  User 
Else  Verify  Identity 

End. 


Figure  IV-3.5  Determine  User  Identity 
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Module  Name:  Create  New  User 


Level :  2 


Called  by:  Determine  User  Identity 


Function:  A  new  user  ID  and  password  will  be  assigned  to 
the  name  and  entered  into  the  LIST  OF  USERS. 


Entry  Conditions:  name  is  to  be  added  to  the  system. 


Exit  Conditions:  valid  user  will  be  set  if  the  operator 
really  did  get  added  to  the  system,  current  user  will 
contain  the  user  ID  assigned  to  name. 


Pseudo  Code: 

Begin  Create  New  User 

add  =  Query”Do  you  wish  to  be  added  as  a  new  user?” 

If  add  is  set 

Then  Assign  new  user  ID  to  name 

protect  =  Query"Do  you  want  a  password?" 

If  protect  is  set 

Then  password  =  Query"  What  will  your 

password  oe?" 

Else  password  =  Null 

Add  user  ID,  name,  password  to  LIST  OF  DSERS 
Set  valid  user 
current  user  =  user  ID 
Else  Reset  valid  user 

current  user  =  Null 

End . 

Figure  IV-3.6  Create  a  New  User 


Module  Name:  Verify  Identity 


Level:  2 


Called  by:  Determine  User  Identity 


Function:  A  user  has  entered  a  name  that  is  present  in  the 
LIST  OF  USERS.  If  he  knows  the  password,  then  he  will  be 
allowed  acces  to  his  projects. 


Entry  Conditions:  name  of  unvalidated  user  must  be 
validated 


Exit  Conditions:  valid  user  is  set  if  the  operator  can 
prove  who  he  is  by  typing  the  correct  password.  If  he 
doesn't  know  it,  he  will  not  be  allowed  to  do  anything  else. 


Pseudo  Code: 

Begin  Verify  User 

Look  up  password  of  name  in  LIST  OF  USERS 
If  password  =  Null 

Then  Set  valid  user 

current  user  -  user  ID 
Else  proof  =  Query"Prove  it!" 

If  proof  =  password 
Then  Set  valid  user 

current  user  =  user  ID 
Else  Reset  valid  user 

current  user  =  Null 

End. 


Figure  IV-3.7  Verify  User  Identity 


Select  Option  Level: 


Called  by:  Command  Processor 


Calls:  Determine  Module  to  Execute,  Select  Project,  Create 
Project,  Kill  Project 


Function:  The  user  may  either  continue  to  work  on  the  same 
project  from  start  to  finish,  or  may  complete  various 
projects  one  step  at  a  time.  After  each  major  module  is 
completed,  the  current  project  can  be  put  aside  and  a  new 
project  can  be  selected,  or  the  same  project  can  be 
completed  still  further,  or  the  user  can  quit  for  now  and 
exit  the  program. 


Entry  Conditions:  valid  user  is  set  and  current,  user 
contains  the  user  ID  of  the  current  user.  The  ARGUMENT 
file  contains  information  about  the  current  state  of  the 

current  project. 


Exit  Conditions:  The  ARGUMENT  file  will  have  been  updated 
to  reflect  the  new  (if  any)  current  project,  next  module 
will  indicate  which  module  is  to  be  executed  next. 


Pseudo  Cooe: 

Begin  Select  Option 

Update  LIST  OF  PROJECTS  from  ARGUMENT  file 

next  module  =  Null 

Repeat 

Display  Menu: 

*  Continue  with  current  project 

*  Switch  to  another  project 

*  Create  a  new  project 

*  Discard  current  project 

*  Exit  to  operating  system 
Get  choice 

Case  choice  of: 

Continue  -  Determine  Module  to  Execute 
Switch  -  Select  Project 

Create  -  Create  Project 

Discard  -  Kill  Project 

Exit  -  next  module  =  Operating  System 

current  project  =  Null 
Until  next  module  isn't  Null 
Update  ARGUMENT  file  from  LIST  OF  PROJECTS 
End . 


Figure  IV-3.9  Main  Menu  Options 


Module  Name:  Determine  Module  to  Execute 


Level:  2 


Called  by:  Select  Option 


Function:  The  state  of  completion  of  the  current  project 
indicates  what  has  been  completed  so  far.  Previously 
completed  steps  may  be  retried  with  different  parameters,  or 
the  next  step  may  be  selected.  In  any  case,  no  module  may 
be  executed  until  the  state  of  completion  indicates  that 
all  required  previous  steps  have  been  completed. 


Entry  Conditions:  current  project  indicates  which  project 
is  under  consideration.  The  LIST  OF  PROJECTS  contains  the 

state  of  completion. 


Exit  Conditions:  next  module  will  identify  which  module  is 
to  be  executed  next  for  this  project. 


Pseudo  Code: 

Begin  Determine  Module  to  Execute 

Look  up  state  of  completion  of  current  project 
in  LIST  OF  PROJECTS 
Case  state  of  completion  of: 

Select  3oard  -  highest  module  =  Selecter 

Select  Components  -  highest  module  =  Selecter 

Selection  Complete  -  highest  module  =  Connecter 

Specify  Components  -  highest  module  =  Connecter 

Connections  Complete  -  highest  module  =  Placer 

Place  Components  -  highest  module  =  Placer 

Placement  Complete  -  highest  module  =  Router 

Route  Connections  -  highest  module  =  Router 

Routing  Complete  -  highest  module  =  Router 

Display  Menu  from  Selecter  to  highest  module 

*  Selecter 

*  Connecter 

*  Placer 

*  Router 
Repeat 

Get  choice 

If  choice  <  highest  module 

Then  proceed  =  Query  "You  sure  you  want 

to  Redo  this?" 

Until  proceed  =  OK 
next  module  =  choice 
End . 

Figure  IV-3.10  Module  Selection  Menu 


Module  Name:  Select  Project 


Level:  2 


Called  by:  Select  Option 


Function:  Tne  user  is  asked  to  cnoose  from  among  his  current 
projects,  current  project  may  also  oe  left  as  is,  if  a 
mistake  was  made.  If  no  projects  are  assigned  to  the 
current  user,  then  current  project  is  set  to  Null. 


Entry  Conditions:  current  user  identifies  whose  projects  to 
look  for  in  LIST  OF  PROJECTS. 


Exit  Conditions:  current  project  identifies  the  new 
current  project. 


Pseudo  Code: 


Begin  Select  Project 

Look  for  current  user  =  user  ID  in  LIST  OF  PROJECTS 
For  each  match: 

Display  Menu  item  project  name 
If  no  match 

Then  current  project  =  Null 
Else  Get  choice 

switch  =  Query "Confirm  switch  from" 

current  project  "to"  choice 

If  switch  is  set 

Then  current  project  =  choice 


End . 


Figure  IV-3.11  Project  Selection 


Module  Name:  Create  New  Project 


Level:  2 


Called  by:  Select  Option 


Function:  A  new  entry  in  LIST  OF  PROJECTS  will  be  created. 
The  user  will  be  asked  to  name  the  project  and  give  a  short 
description  to  aid  in  future  identification.  An  entry  in 
the  GLOBAL  DIRECTORY  will  be  allocated  for  the  PROJECT 
file.  The  new  project  will  become  the  current  project. 


Entry  Conditions:  current  user  is  to  be  assigned  a  new 
project. 


Exit  Conditions:  Newly  created  project  will  be  the  current 
project. 


Pseudo  Code: 

Begin  Create  New  Project 

project  name  =  Query"What  do  you  want  to  call  it?" 
project  description  =  Query"Brief ] y  describe  it." 

Assign  new  project  ID  to  project 
state  of  completion  =  Select  Board 
user  ID  =  current  user 

Add  project  ID,  user  ID,  project  name, 

project  description,  state  of  completion  to  LIST  OF 
PROJECTS 

Allocate  disk  space  for  PROJECT  file  in  GLOBAL 
DIRECTORY 
End. 

Figure  IV-3.12  New  Project  Creation 


Module  Name:  Kill  Project 


Level :  2 


Called  by:  Select  Option 


Function:  The  user  wishes  to  delete  the  current  project 
from  the  LIST  OF  PROJECTS.  After  confirming  this,  the 
PROJECT  file  for  the  current  projectis  deleted  from  the 
GLOBAL  DIRECTORY  and  the  disk  space  is  de-allocated 


Entry  Conditions:  current  project  is  to  be  deleted 


Exit  Conditions:  If  confirmed,  LIST  OF  PROJECTS  and  GLOBAL 
DIRECTORY  will  no  longer  contain  information  about  the  old 
project,  and  current  project  will  be  set  to  Null. 


Pseudo  Code: 

Begin  Kill  Project 

If  current  project  <>  Null 

Then  proceed  =  Query"Conf irm  deletion  of" 

current  project 

If  proceed  is  set 

Then  Remove  current  project  from 
LIST  OF  PROJECTS 

Remove  PROJECT  file  of  current  project 
from  GLOBAL  DIRECTORY 
De-al locate  disk  space 
current  project  =  Null 

End . 


Figure  IV-3.13  Project  Deletion 


Module  Name:  Execute  Next  Module 


Level:  1 


Called  by:  Command  Processor 


Executes:  Selecter,  Connecter,  Placer,  Router,  Exits  to 
Operating  System 


Function:  The  Layout  modules  cannot  be  simply  called  like  a 
normal  procedure,  because  they  are  not  resident  in  memory  at 
the  same  time  with  the  Command  Processor.  In  operation,  the 
Command  Processor  chains  to  the  next  module  which  in  turn 
chains  back  to  the  Command  processor.  Communication  is 
through  disk  files.  Before  execution  is  attempted,  the 
files  required  by  the  next  module  are  looked  up  in  the 
GLOBAL  DIRECTORY.  Their  locations  are  loaded  into  the 
ARGUMENT  file,  and  control  is  transferred  to  the  next 
module. 


Entry  Conditions:  next  module  identifies  which  module  is  to 
be  executed.  GLOBAL  DIRECTORY  contains  information  about 
which  files  the  modules  need  to  execute  properly. 


Exit  Conditions:  This  is  a  "dead-end"  routine  because  it 
does  not  return  control  to  the  caller.  It  is  the 
responsibility  of  the  module  that  is  executed  to  return 
control  to  the  Command  Processor  with  the  ARGUMENT  file 
updated. 


Pseudo  Code: 

Begin  Execute  Next  Module 

Look  up  required  files  for  next  module 
in  GLOBAL  DIRECTORY 
For  each  required  file: 

Add  required  file  location  to  ARGUMENT  file 
Look  up  resident  filename  of  next  module 
in  GLOBAL  DIRECTORY 
Execute  resident  filename 
End . 


Figure  IV-3.15  Module  Chaining 


Graphics  Routines 


The  following  graphics  routines  have  been  implemented 
in  very  basic  form  for  testing  purposes,  and  the  design  is 
presented  to  satisfy  the  requirements  for  graphics 
capability  as  indicated  in  the  general  design  of  the  layout 
modules  in  chapter  III. 


Basic  Features 

The  basic  graphics  display  routines  are  those  required 
for  pixel  manipulation  and  changing  of  the  display  window. 
They  will  be  very  machine  dependent,  so  the  design  of  each 
depends  on  the  target  machine.  Here  is  a  description  of  the 
required  routines  and  associated  definitions: 

pdux,pduy  :  Physical  Display  Units  x  a;u  .  represent 
the  actual  screen  coordinate.'  Cvc  the 
target  machine. 

plotcode  :  on  =  pixel  will  be  turned  on 

off  =  pixel  will  be  turned  off 

flip  =  pixel  will  be  inverted 

same  =  state  of  pixel  will  remain 

unchanged 

quadrant  :  NW,  NE,  SW,  SE  each  represent  one  quarter 
of  the  logical  display  space.  To  allow 
boards  larger  than  the  physical  screen  to 
be  displayed,  the  logical  display  space  is 
divided  into  four  quadrants,  only  one  of 
which  may  be  displayed  at  once. 


Pixel  Manipulation  Routines 


set  scale  (scale)  :  The  system  scale  factor  is  a  real 


variable  and  may  be  set  to  any  value  desired.  Once  set,  any 


subsequent  coordinates  will  be  scaled  accordingly.  The 


initial  value  is  one. 

set  coord  (x,  y)  :  A  coordinate  in  terms  of  mils  is 
converted  into  the  corresponding  physical  display 
coordinates  using  the  current  value  of  the  system  scale 


factor . 

pixel  (plotcode)  :  The  pixel  at  the  current  location 
(determined  by  set  coord)  will  be  modified  according  to  the 
value  of  plotcode. 

pixelset  :  A  boolean  function  that  returns  the  state  of 
the  pixel. 

limits  (  quadrant,  xmin,  xmax,  yrnin,  ymax  )  :  A 
procedure  that  returns  the  minimum  and  maximum  x  and  y 
values  (in  mils)  that  will  be  visible  in  the  given  quadrant. 
Window  Manipulation  routines 

window  (quadrant) :  The  quarter  of  the  virtual  display 
screen  specified  by  quadrant  will  be  physically  displayed. 
Depending  on  the  display  hardware,  the  current  screen  may  be 
swapped  out  to  disk. 

text  :  The  graphics  screen  will  be  replaced  with  the 
text  screen.  The  graphics  will  not  be  erased,  but  may  be 
swapped  out  to  disk  if  necessary. 

loadgraphics  :  The  graphics  display  memory  will  be 
loaded  from  the  graphics  dump  file. 

savegraphics  :  The  graphics  display  memory  will  be 
saved  into  the  graphics  dump  file. 

cleargraphics  :  The  graphics  display  memory  will  be 
cleared  completely. 

Advanced  Features 

The  following  procedures  will  assume  the  basic  features 
are  defined  and  available.  They  include  line  and  box  drawing 
routines,  copy  routines,  and  cursor  movement  control 
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routines.  They  will  be  implemented  using  standard  Pascal  and 
the  basic  graphics  routines,  but  if  the  display  hardware 
supports  some  of  these  features,  then  these  routines  may  be 
re-written  to  take  advantage  of  the  extra  capabilities. 

The  following  definitions  apply  to  these  functions: 

point  :  screen  location  in  mils.  The  x  and  y 

coordinates  can  be  referred  to 
individually  as  point. x  and  point. y.  Note 
that  the  graphics  display  logical  screen 
is  four  times  larger  than  the  physical 
screen,  so  the  point  may  not  necessarily 
be  on  the  current  physical  display. 

layer  :  1..4  indicating  which  layer  is  being 

drawn  on. 

overlay  :  true  =  the  existing  points  which  are  set 

will  be  left  alone  when  new  points  are 
added . 

false  =  any  existing  points  will  be  reset 
before  the  new  points  are  added. 

orientation  :  asis  =  don't  chanc.:  relative 

orientation 

clockwise  *  rotated  90  degrees  right 
counter  =  rotated  90  degrees  left 
upsidedown  =  flipped  upside  down 


Drawing  commands 

line  (  pointl,  point2,  plotcode,  layer  ):  A  line  will 
be  drawn  on  the  display  between  points  1  and  2.  All  of  the 
pixels  along  the  line  will  be  affected  according  to  the 
value  of  plotcode.  Each  layer  will  be  drawn  with  different 
line  styles  (solid,  dotted,  dashed,  ecc.)  The  current 
quadrant  will  be  switched  if  necessary. 

drawbox  (  pointl,  point2,  plotcode  ):  A  box  will  be 


drawn  using  points  1  and  2  as  opposite  corners.  The  box  will 
always  be  drawn  using  solid  lines. 


copy  (  pointl,  pomt2,  point3,  overlay,  orientation  ): 
The  contents  of  the  box  defined  by  points  1  and  2  will  be 
copied  to  the  box  of  the  same  size  with  point  3  as  the  lower 
left  corner.  If  overlay  is  true,  then  the  current  contents 
of  the  destination  box  will  not  be  erased  before  the  source 
box  is  added.  Orientation  will  define  how  the  destination 
box  will  be  oriented  with  respect  to  the  source  box. 

move  (  pointl,  point2,  point3 ,  overlay,  orientation  ): 
Same  as  copy  except  that  the  source  box  will  be  reset. 

draw  (  symbol,  point,  orientation  ):  The  symbol 
definition  will  be  looked  up  in  the  SYMBOL  FILE  and  will  be 
transferred  to  vhe  display  with  point  as  the  lower  left 
corner.  The  orientation  will  be  changed  accordingly. 

size  (  symbol,  dx,  dy  ):  The  size  of  the  symbol  will  be 
returned  in  dx  and  dy. 

defsyinbol  (  symbol,  pointl,  point2  ):  The  box  defined 
by  points  1  and  2  will  be  added  to  the  SYMBOL  FILE  with  the 
label  symbol. 

Cursor  Motion 

getcoor  (  pointl,  point2,  point3  )  :  A  cursor  will 
appear  on  the  screen  at  the  center  of  the  box  defined  by 
points  1  and  2.  The  user  will  be  able  to  move  the  cursor 
around  the  screen  within  the  box  until  he  presses  RETURN. 
The  current  cursor  location  will  then  be  returned  as  point 
3.  The  cursor  will  be  non-destructive  and  the  user  will  be 
able  to  define  the  resolution  of  cursor  motion  dynamically. 
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Chapter  V 


Implementation 


Two  different  micro-computers  were  used  to  develop  the 
software  for  this  project.  They  use  different  operating 
systems  and  different  Pascal  compilers,  providing  a  good 
portability  test. 

One  of  the  computers  is  an  LNW-80,  which  is  compatible 
with  the  Radio  Shack  TRS-80  Model  I  computer.  It  has  48K 
bytes  of  RAM  and  four  floppy  disk  drives  with  a  total 
storage  space  of  over  1  Megabyte.  The  graphics  display  is 
480  pixels  horizontally  and  192  pixels  vertically  within  a 
display  space  of  7.5  by  4.5  inches,  which  gives  a  voiot  case 
resolution  of  24  mils.  This  is  adequate  to  represent  a  50 
mil  grid  in  actual  size.  The  operating  system  is  Dospius 
3.5,  unique  to  TRS-80  computers  and  their  equivalents 

The  other  computer  is  an  Epson  QX-10.  Although 
equipped  with  256K  bytes  of  memory,  only  64K  is  accessable 
when  using  the  CP/M  operating  system.  The  graphics  display 
is  640  X  400  pixels  within  an  8"  X  5"  screen,  yielding  a 
resolution  of  12.5  mils. 

Simultaneous  software  development  proved  to  be  very 
time-consuming  because  of  the  iterative  nature. 
Improvements  and  additions  made  to  one  version  had  to  be 
made  to  the  other  version  as  well,  which  made  keeping  track 
of  source  code  files  a  non-trivial  task. 


The  present  implementation  of  the  layout  system  is  not 
as  complete  as  originally  intended,  due  to  unanticipated 
problems  with  the  Pascal  file  handling  system  and  with 
manipulation  of  the  QX-10  graphics  hardware.  The  available 
documentation  is  not  complete,  and  the  other  problems 
slipped  the  schedule  enough  to  make  experimentation 
impractical . 

The  next  section  explains  the  differences  between  the 
two  compilers  used  and  will  allow  comparison  of  the  source 
code . 

Pascal  MT+  on  Epson  QX-10 

Random  Access  Files 

Standard  Pascal  only  defines  sequential  access  files, 
and  MT+  extends  this  definition  to  allow  for  random  access 
through  the  use  of  two  procedures  -  seekread  and  seekwrite. 
Standard  Pascal  procedures  are  used  to  open  the  file, 
however.  This  leads  to  problems  when  ail  file  accesses  are 
to  be  handled  through  a  common  set  of  procedures,  because 
the  file  record  structure  must  be  known  at  the  time  the  file 
is  opened. 

A  generalized  file  access  routine  should  not  have  to 
know  the  actual  record  structure  of  tne  file,  just  how  many 
bytes  to  transfer.  The  solution  was  to  use  a  fixed-size 
record  for  all  file  access,  declared  as  an  array  of 
characters.  Procedures  were  then  written  to  perform  record 
blocking  and  de-blocking  within  this  maximum  record.  This 


requires  the  file  routines  to  maintain  the  actual  record 
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length  for  each  file,  so  only  the  appropriate  number  of 
bytes  are  transferred. 

External  Procedures  and  Variables 


The  two  compilers  have  almost  identical  facilities  for 
handling  external  declarations,  but  the  syntax  is  totally 
different.  As  a  result,  none  of  the  routines  may  be 
compiled  "as  is",  but  the  changes  between  them  are 
mechanical  in  nature. 

MT+  defines  two  keywords,  MODULE  and  MODEND.  to 
differentiate  between  a  program  module  and  a  set  of 
procedures  being  compiled  separately.  To  allow  procedures 
and  functions  defined  in  one  module  to  be  accessed  from 
another,  the  procedure  or  function  heading  is  preceded  by 
the  keyword  EXTERNAL  if  the  definition  exists  in  another 
module  or  program.  Variables  are  handled  similarly,  with 
the  EXTERNAL  keyword  preceding  the  type  of  the  variable. 
Static  vs.  Dynamic  Variables 

In  standard  Pascal,  variables  do  not  exist  unless  the 
procedure  in  which  they  are  defined  is  currently  active.  In 
separately  compiled  modules,  MT+  defines  all  variables 
declared  outside  the  procedures  to  be  static,  and  they  are 
treated  just  like  global  variables  defined  in  the  main 
program.  This  allows  modules  to  declare  variaoles  that  will 
not  become  undefined  when  the  procedure  using  them  finishes 
executing . 
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An  MT+  Module  with  Static  variables  has  the  following 
format: 

MODULE  module  name; 

VAR  static  variable  name  :  type; 

variable  declared  elsewhere  :  EXTERNAL  type; 

C  References  to  procedures  defined  elsewhere  follow  3 
EXTERNAL  procedure  name (parameters) ; 

[  Procedures  being  compiled  follow  3 
PROCEDURE  procedure  name (parameters ; 

VAR  C  all  variables  needed  by  the  procedure  3 
BEGIN 

(  Procedure  body  3 
END; 


•  •  • 

MODEND . 

LNW  (TRS-80  Model  I  compatable)  and  Alcor  Pascal 

Random  Access  Files 

Unlike  MT+  ,  Al'cor  defines  separate  procedures  for 
opening  and  closing  random  access  files,  as  well  as  reading 
and  writing  them.  The  record  length  of  the  file  is  passed 
as  a  parameter  to  the  open  subroutine,  and  the  address  of  a 
variable  is  passed  to  the  random  read  and  write  routines. 
This  means  that  the  file  routines  do  not  need  to  know  the 
structure  of  the  file,  and  any  record  length  can  be  used 
with  ease. 

Separate  Compilation 

Alcor  uses  a  compiler  option  to  tell  tne  compiler  not 
to  generate  code  for  the  body  of  the  program,  called  tne 
($NULLB0DY3  option.  Basically,  the  entire  program  consists 
of  the  statements  BEGIN  [$NULL80DY3  END.  instead  of  MODEND. 
as  with  MT+. 
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External  Procedure  Declarations 

The  only  difference  here  is  the  position  of  the  keyword 
EXTERNAL.  Alcor  Pascal  places  it  after  the  procedure  or 
function  heading,  instead  of  before  it. 

Static  Variables 

Two  new  keywords,  COMMON  and  ACCESS  are  used  to  do  the 
same  thing  that  external  variable  declarations  do  in  MT+ . 
COMMON  is  used  instead  of  VAR  to  indicate  that  the  varaibles 
being  defined  are  to  be  allocated  statically,  and  the 
keyword  EXTERNAL  is  not  used.  In  every  procedure  that  uses 
a  COMMON  variable,  the  variable  must  appear  in  an  ACCESS 
statement. 

The  format  of  an  Alcor  module  is  as  follows: 

PROGRAM  pr  jgram  name  j 

[  The  COMMON  statement  is  the  same  regardless  of  where 
the  variable  is  defined.] 

COMMON  static  variable  name  :  type; 

C  Procedures  defined  elsewhere  go  here  3 

procedure  name (parameters) y  EXTERNAL; 


(  procedure  definitions  being  separately  compiled  go 
here  ] 

PROCEDURE  procedure  name (parameters) ; 

ACCESS  variable  names  declared  as  common; 

VAR  local  variables  :  types; 

BEGIN 

{  Body  of  procedure  ] 

END; 

•  •  • 

•  •  • 

BEGIN 

C$NULLBODY) 

END. 


Appendix  A  explains  the  basic  linked-list  file  format, 
and  Appendix  B  describes  the  file  formats  used  by  the 
Command  Processor  Shell  and  the  ARGUMENT  FILE.  To  make 
installation  of  the  Command  Processor  easier.  Appendix  C 
describes  the  Installation  utilities  that  have  been  written. 

The  complete  source  code  for  the  Command  Processor 
Shell  is  presented  in  two  versions,  one  for  each 
computer-compiler  pair,  in  Appendixes  D  and  E. 

Appendix  F  contains  a  users  manual  for  the  Command 
Processor  which  explains  the  use  of  the  Query,  Menu,  and 
Help  functions. 


Pile  Size  Limitations 


Chapter  VI 
Results 


Because  all  of  the  information  is  stored  in  files, 
project  complexity  will  be  limited  by  the  amount  of  disk 
space  available.  All  of  the  files  required  by  a  particular 
module  should  fit  on  line  at  the  same  time,  to  minimize  the 
amount  of  disk  swapping  required.  The  amount  of  data  that 
can  be  maintained  for  a  project  depends  on  the  following 
factors  -  the  physical  storage  limitation  of  the  disk 
itself,  and  the  amount  of  overhead  required  by  the  system. 

File  overhead  refers  to  the  amount  of  file  space  that 
isn't  available  for  storing  actual  data.  For  linked  files, 
the  overhead  imposed  is  four  bytes  per  record,  independent 
of  the  record  length.  Longer  records  will  have  less 
overhead  on  a  percentage  basis  than  short  records.  For 
example,  an  eight  byte  record  will  consist  of  four  bytes  of 
pointers  and  four  bytes  of  data,  with  a  resultant  overhead 
figure  of  1/2.  A  128  byte  record  will  have  the  same  four 
pointer  bytes  with  124  bytes  of  data.  The  overhead  in  this 
case,  1/32,  is  much  lower. 

Most  of  the  layout  module  record  lengths  will  probably 
lie  between  these  two  extremes.  A  16  byte  record  could  be 
used  to  store  circuit  trace  information,  of  which  12  bytes 
would  be  available  for  data.  Allowing  for  2,000  traces  per 
layer  on  a  four  layer  board  would  require  8,000  16  byte 
records,  or  128,000  bytes. 
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As  long  as  all  of  the  records  in  a  file  contain  the 
same  type  of  information,  calculation  of  file  overhead  is 
simple.  Problems  arise  when  variable  length  records  are 
stored  in  one  file,  because  the  longest  record  length  is 
used  for  each  record.  The  unused  bytes  at  the  end  of  each 
shorter  record  must  be  added  to  the  total  overhead.  Any 
bytes  used  to  distinguish  between  the  types  of  records  in 
the  file  also  add  to  the  overhead.  The  total  overhead  figure 
will  include  the  fixed  four  bytes  per  record,  plus  an  amount 
depending  on  the  mix  of  each  of  the  logical  record  lengths. 
Improvements  to  Existing  Code 

The  current  Command  Processor  shell  does  work 
correctly,  but  there  is  a  feature  that  should  be  improved  to 
provide  a  better  user  environment.  When  the  user  is  asked  a 
question,  there  is  no  provision  for  an  escape  -  A  valid 
answer  must  be  provided  before  control  returns  to  the 
caller.  On-line  help  is  available,  but  if  the  user  is 
totally  confused,  or  realizes  that  he  answered  the  last 
question  wrong,  there  is  no  way  the  indicate  to  the  calling 
program  an  exception  condition. 

Proposed  solution  -  the  query  modules  should  include  an 
additional  parameter  to  indicate  that  the  user  didn't  desire 
to  answer  the  question.  This  would  allow  the  calling 
program  to  detect  the  exception  condition  and  provide  a  way 
for  the  user  to  gracefully  "back  up"  through  a  series  of 


questions . 
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Future  Developments 

Because  of  the  unforseen  level  of  difficulty  in  writing 
truly  portable  Pascal  programs,  it  was  probably  not  the  best 
choice  for  a  project  of  this  type.  C  appears  to  be  a  much 
more  suitable  language  and  conversion  from  Pascal  to  C 
should  not  be  difficult  for  an  experienced  C  programmer. 
When  this  project  was  started,  I  was  unfamiliar  with  C  and 
thought  that  it  would  take  too  much  time  to  obtain  and  learn 
it. 

The  basic  design  is  sound  and  I  will  be  continuing  to 
work  on  this  project  even  though  the  formal  thesis  work  may 
be  completed.  It  will  take  quite  a  lot  of  work  to  fully 
implement  the  system,  but  the  results  should  be  worthwhile. 
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APPENDIX  A  -  Linked  Pile  Format 

All  of  the  files  maintained  by  the  system  have  the  same 
basic  format  -  a  linked  list  of  fixed  length  data  records, 
accompanied  by  another  list  of  free  records.  When  a  file  is 
created,  all  of  the  records  are  linked  together  and  assigned 
to  the  Free  list.  Later  insertions  and  deletions  involve 
transfering  a  record  from  one  list  to  another.  No  actual 
movement  of  the  records  in  the  file  takes  place. 

For  example,  consider  a  file  with  five  records 
allocated.  After  initial  creation,  it  would  look  like  this: 


FREE 


FIRST 


->  Ef1 


•  1 


•  4  Record  0 


0  Record  1 


•  1  Record  2 


Pc-rri  r  d  C' 
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Notice  that  the  free  list  is  circular  -  the  previous 
record  pointer  of  the  first  record  points  to  the  last 
record,  and  the  next  record  pointer  of  the  last  record 
points  to  the  first  record.  The  two  pointers  First  and  Free 
point  to  the  first  record  of  their  respective  lists,  and  a 
value  of  -1  for  either  pointer  means  there  are  no  records  in 
the  list.  In  the  present  example.  First  is  pointing  to  an 
empty  list,  because  no  records  have  been  inserted  yet.  Here 
is  how  the  file  would  look  after  three  insertions: 


Record  0 


Record  3 


Because  the  lists  are  circular,  detecting  an  End  of 
File  condition  becomes  a  little  tricky.  After  a  file  has 
been  Reset,  two  pointers.  Next  and  Last,  are  both  set  to 
point  to  the  record  pointed  to  by  First.  The  first  Read 
will  look  at  the  first  record  and  set  Next  to  point  to  the 
next  record.  After  four  more  Reads,  Next  will  again  be 
pointing  to  First,  but  Last  will  not.  This  is  how  an  End  of 
File  is  detected  -  whenever  Next  equals  First  and  Next  is 
different  from  Last,  then  we've  wrapped  around  back  to  the 
top  of  the  list.  When  there  is  only  one  record  in  the  list, 
however,  this  scheme  doesn't  work.  A  one  record  list  always 
points  to  itself,  because  it  is  both  the  next  record  and  the 
last  record  as  well  as  the  first  record.  In  this  case,  an 
End  of  File  will  never  be  indicated.  The  solution  is  to 
avoid  single  element  lists. 

Slots 

The  LinkFile  module  maintains  ten  slots  for  file 
information.  To  access  a  file,  a  slot  must  be  initialized 
for  it.  The  initialization  defines  the  filename,  diskid, 
drive,  and  current  pointer  values  for  the  file.  Once 
initialized,  the  system  automatically  opens  and  closes  files 
as  necessary,  and  will  prompt  for  disk  switches  when 
necessary. 

When  a  module  finishes  execution,  the  current  values  of 
the  pointers  must  be  saved  somewhere  so  that  the  next  module 
*»*v  -  cess  them.  The  global  directory  maintains  all 
variable  file  slot  information  for  the  command  processor, 


and  the  argument  file  is  used  to  pass  this  information 
between  modules.  To  ensure  file  integrity,  the  following 
procedure  is  followed:  Initialize  all  necessary  file  slots 
by  reading  the  information  from  a  known  source  (either  the 
global  directory  or  the  argument  file).  When  done  with  the 
files,  update  the  appropriate  source  to  save  the  new  state 
of  the  files. 

The  actual  information  maintained  for  each  slot  is 
system  dependent,  and  can  be  found  in  the  source  code 
listings  in  appendices  D  and  E. 
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Command  Processor  Files 


The  Command  Processor  uses  six  files  to  keep  track  of 
the  users,  projects,  and  disk  allocation,  along  with  menus, 
help,  and  communication  with  the  other  modules. 

List  of  Users 

Three  pieces  of  information  are  retained  for  eacn  user 
-  a  name,  password,  and  a  user  id.  Upon  initial  entry  to 
the  system,  a  match  with  one  of  the  names  already  in  the 
list  is  attempted.  If  the  match  is  successful,  then  the 
user  must  also  match  the  password,  unless  the  password  is 
all  blanks.  Here  is  the  format  of  the  Users  file: 

Name  :  String  containing  UPPER  CASE  name  of  user 

ID  :  positive  integer  greater  than  zero 

Password  :  String  containing  password  defined  by  user 

L. st  of  Projects 

Project  information  includes  the  project  name,  an 
additional  description,  a  progress  indication,  and  the  owner 
of  the  project,  all  identified  by  a  unique  project  ID. 

ID  :  positive  integer  greater  than  zero 

Name  :  String  containing  user  defined  name  for 

project 

Desc  :  Optional  description  of  project 

Completion  :  Single  byte  integer  representing  the  level 
of  completion 

User  :  Single  byte  integer  identifying  the  owner 

of  the  project 

List  of  Disks 

As  projects  are  created,  diskette  space  is  reserved  in 
advance  for  each  project  file.  The  list  of  disks  keeps 
track  of  current  space  availaDle  on  each  disk.  Each  project 
is  assigned  a  unique  disk  or  disks,  so  no  disk  will  contain 
files  from  more  than  one  project.  When  projects  are 
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deleted,  the  disk  space  is  reclaimed  for  the  owner  of  the 
project.  This  ensures  that  physical  disks  always  belong  to 
one  owner,  allowing  each  user  to  keep  his  own  disks 
separately. 

Disk  ID  :  An  integer  identifying  the  disk 

Assigned  :  A  flag  indicating  whether  or  not  the  disk 
currently  belong  to  a  project,  or  is 
available  for  re-assignment. 

User  or 

Project  ID  :  Depending  on  the  Assigned  flag,  this  field 
identifies  either  the  owner  of  an 
un-assigned  disk,  or  the  project  to  which 
the  disk  has  been  assigned. 

Menus 

The  file  of  menus  has  a  structure  which  allows  a  menu 
to  be  represented  as  a  linear  list  regardless  of  the  number 
of  levels.  All  of  the  items  belonging  to  one  menu 
sequentially  follow  each  other.  As  each  item  is  read  from 
the  file,  two  flags.  Bump  Up  and  Bump  Down,  indicate  whether 
the  next  item  is  at  a  lower  level,  higher  level,  or  the  same 
level.  The  end  of  a  menu  is  indicated  when  the  level 
reaches  zero. 


Menu  Number  :  Indicates  which  menu  this  record  belongs 
to 

Bump  Down  :  A  flag  indicating  that  the  next  record  is 
at  a  lower  level 

Bump  Up  :  A  flag  indicating  that  the  next  record  is 

at  a  higher  level 

Item  Text  :  The  text  displayed  to  the  user  on  the 
screen 

Item  Code  :  Code  number  for  this  selection 

Help  Index  :  Which  help  message  to  display  for  this 
selection 


The  help  file  is  very  simple  in  structure  -  each  record 
contains  two  fields:  an  index  number,  and  a  line  of  a  help 
message.  When  help  is  asked  for,  the  file  is  scanned  until 
the  first  matching  index  number  is  found,  then  all 
sequential  records  are  displayed  until  a  different  index 
number  is  found. 

Help  Index  :  Integer  indicating  to  which  message  this 
record  belongs 

Line  :  One  line  of  the  help  message 


Argument  File 


The  argument  file  contains  a  header  record  with  a 


different  format  than  the  rest  of  the  entries.  The  header 


information  keeps  track  of  the  current  state  of  the  system, 
and  the  rest  of  the  records  contain  information  about  each 


file  which  is  passed  between  the  modules. 
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Here  is  the  format  of  the  header  record: 


Next  ID 
Next  User 
Next  Project 
Project  ID 
User  ID 
Error  Code 
Completion 

Module 


The  next  disk  ID  to  assign 
The  next  available  user  ID 
The  next  available  project  ID 
The  ID  of  the  current  project 
The  ID  of  the  current  user 
Current  error  condition,  if  any 
Number  representing  the  state  of  the 
current  project 

Number  representing  the  last  module 
executed 


The  file  entry  format  is  a  subset  of  a  global  directory 
entry: 


File  Num 
File  Name 
Linked 


Drive 

Disk  ID 
Rees  Avail 

Rec  Len 

First 

Free 


:  Slot  number  occupied  by  the  file 
:  System  dependent  file  name 
:  Flag  indicating  whether  or  not  the 
system  will  maintain  the  file  as  a 
linked  list 

:  Drive  on  which  to  mount  disk  containing 
the  file 

:  Identifier  of  disk  containing  the  file 
:  The  amount  of  free  space  left  in  the 
file 

:  Logical  record  length  of  the  file 
:  Pointer  to  the  first  logical  record 
:  Pointer  to  the  free  list 
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v.v. 
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APPENDIX  C  -  Installation 

In  order  for  the  Command  Processor  to  work,  four  files 
must  be  initialized  -  the  global  directory,  the  menu  file, 
the  help  file,  and  the  argument  file  header.  Because  these 
files  use  Pascal  structures,  programs  were  written  to  read 
in  conventional  ASCII  files  and  convert  them  to  the  format 
required  by  the  Command  Processor.  Described  below  is  the 
format  of  the  ASCII  files  required  by  each  of  the  programs. 
GDIRGEN  -  Generate  the  Global  Directory 

GDIRGEN  reads  a  file  called  GDIRGEN.DAT  and  creates  a 


new  directory  entry  for  each  line  in  the  file.  Each  line  has 
fourteen  fields  with  the  following  format: 


Field  Name  Field  Length 


CP 

1 

Selecter 

1 

Connecter 

1 

Placer 

1 

Router 

1 

OS 

1 

Separator 

1 

Linked 

1 

Separator 

1 

File  Name 

12 

Separator 

1 

Drive 

1 

Sepatator 

1 

Slot  Number 

variable 

Project  ID 

variable 

How  Many 

variable 

Disk  ID 

variable 

Record  Length 

variable 

Contents 
T  or  F 
T  or  F 
T  or  F 
T  or  F 
T  or  F 
T  or  F 
Anything 
T  or  F 
Anything 

System  File  Name 
Anything 

Drive  Identifier 
Anything 
1  to  10 
0  or  -1 

Number  of  Records 
0  or  1 
1  to  128 


The  first  six  fields  are  flags  indicating  if  the  file 


will  be  accessed  by  tne  corresponding  module,  ana  the 
variable  length  fields  are  all  numeric  values  separated  by 


spaces 


and  0 


K* 


/V 


Project  ID  and  Disk  ID  are  set  to  -1 
respectively,  to  create  a  template  entry.  Template  entries 
do  not  correspond  to  actual  files,  but  are  used  when  new 
project  files  are  created.  The  global  directory  is  searched 
for  these  template  entries,  and  a  corresponding  real  file 
and  entry  is  generated,  with  the  Project  ID  and  Disk  ID 
fields  set  to  actual  values. 


MENUGEN  -  Generate  the  Menu  File 


The  contents  of  MENUGEN.DAT  are  used  to  initialize  the 
system  menu  file.  Each  line  corresponds  to  a  single  menu 
item  or  a  new  menu  number.  The  first  cnaracter  of  a  menu 
item  is  used  to  control  the  nesting  level  -  a  V  will  go  down 
one  level,  and  a  *  will  go  up  one  level.  When  the  level 
reaches  zero,  the  menu  is  complete,  and  the  next  line  should 
contain  another  menu  number  or  a  zero  to  indicate  the  end  of 
the  file. 


Field  Name  Field  Length  Contents 

Level  1  or  V  or  space 

Separator  1  Anything 

Item  Text  20  Displayed  Text 

Separator  1  Anything 

Item  Code  variable  0  to  255 

Help  Index  variable  Help  Message  Number 


HELPGEN  -  Generate  the  Help  File 

The  contents  of  HELPGEN.DAT  are  used  to  create  the 
system  help  file.  Each  line  corresponds  to  one  line  of  a 
help  message.  Help  messages  may  be  an  arbitrary  number  of 
lines  long. 
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Field  Name  Field  Length  Contents 

Help  Line  30  A  line  of  the  message 

Separator  1  Anything 

Help  Index  variable  Help  Message  Number 

ARGSGEN  -  Initialize  the  Argument  File 

The  Command  Processor  reads  the  Argument  file  every 

time  is  entered  to  determine  the  current  state  of  the 

system.  This  program  initializes  the  Argument  File  header 

so  the  Command  Processor  won't  bomb  out  the  very  first  time 


it  is  executed.  No  input  data  file  is  used. 


APP|NDIX_D_i_QXlB_SQurct_Code 

{**«***«***«•«*********«***•***********#**+*#«**************+**; 


(*  Term  10  Module  -  Terminal  I/O  suopcr t  routines  *} 

{*  All  ot  the  routines  use  one  byte  control  codes  -for  the  *] 
(*  various  screen  operations  and  expect  one  bvte  responses  *} 
{*  trom  the  keyboard.  These  control  bytes  must  be  translated  * } 
{*  into  the  actual  control  sequences  for  the  terminal  being  *} 
(*  used.  * ' 


{*************************************************************♦} 
module  termio; 

const  q_x  =  18;  {  Define  Screen  Areas  } 

q_y  =  20;  (Query  Box  > 

q_lines  =  3; 

m_x  =  5;  (Menu  Box  } 

m_y  =  1; 

m_lines  =  28; 

h_x  =  40;  (Help  Box  > 

h_y  =1; 

h_lines  =  20; 

«ax_prampt  =  30;  (  Maximum  Length  of  Character  string  } 

(  Define  codes  used  internally  ) 
cursorleft  =  SIB; 

cursorright  =  <19; 

cursorup  =  < 1 B; 

cursordown  =  < 1 A ; 

clear_to_eol  =  $1E; 

leftarrow  =  $08; 

rightarrow  =  $09; 

uparrow  =  $5B; 

downarr on  =  $0A; 

type 

boxes  =  (q,  m,  h); 

char_string  =  array C 1 . . max_prompt 3  of  char; 

(  Use  direct  console  I/O  for  CP/M  systems  > 

>  0BDOS  is  a  library  function  provided  by  the  compiler  > 
external  function  @bdos(func: integer;  parm: word ): integer ; 

{**•*******************§#*#*****************♦**  *♦**♦*♦*  #****♦♦•**  ) 

(*  Procedure  :  WritsCH  -  Send  a  character  to  terminal  *' 

■i  *  Far amet er s  :  CH  *; 

(*  Entry  Conditions  :  CH  is  either  an  ASCII  character  Dr  one  *> 
{•*  of  the  one  byte  control  codes  to  be  sent  to  the  terminal.  *.'■ 
Process  :  I*  the  character  is  one  of  the  recognized  control*! 
; *  bytes,  tnen  it  is  converted  to  the  string  required  by  the 
i*  particular  terminal.  Otherwise,  it  is  passed  without  *} 

(*  translation  directly  to  CP/M.  *1 

;*♦*************»****♦**************♦***♦♦♦***+***********«♦**♦! 
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procedure  writechich  :  char); 
var  1  :  integer; 
begin 

case  ordich)  of  {  Terminal  Dependent  Codes  } 
cursorleft  :  1 : =Sbdos (o.wrd (B) >  ; 
cursorright  :  i  s  =Sbdos  ib  ,wrd  ( 12) ) ; 
cursorup  :  i : =8bdos (6,wrd  ( 1 1 ) ) ; 
cursordoun  :  i : =0bdos (6,wrd  ( 10) ) ; 
clear_to_eol  :  begin 

i : =@bdos ( 6 , wr d (27) ) ; 
i : =@bdos (6,wrdiord(‘T'>)>; 
end ; 

else  i : =@bdos (6 , wr d (ord  (ch) ) ) ; 
end; 
end; 

f **************************************************** ♦*♦****♦**} 


1*  Function  :  GetKey  -  Get  a  character  -from  the  keyboard  *} 
{*  Result  :  ASCII  character  or  one  byte  control  code  entered  *} 
{*  from  the  keyboard.  *1 
{*  Process  :  The  keyboard  is  scanned  until  the  operator  +} 
{*  presses  a  key.  If  the  terminal  being  used  generates  *} 
{*  multiple  codes  for  some  keys,  then  this  procedure  must  *} 
{*  decode  the  sequence  and  return  the  appropriate  one  byte  ♦} 
{•  control  code.  Many  terminals,  for  example,  use  escape  <1 
'♦  sequences  for  function  keys  and  the  arrow  keys.  These  *1 
{*  strings  must  be  converted  into  a  single  byte.  *1 


{»#*«*»*«*****«*»**t #•****#«*»*#*»«******•#********•**»*#****»*} 

function  getkey  s  char; 
var  l  :  integer; 
begin 

{  Wait  for  a  key  to  be  pressed  1 
repeat  i : =@bdos (&,wrd (*FF) )  until  i 08); 
case  i  of 


{ 

QX-10  ) 

11  : 

i :  =uparrow; 

r 

arrow  I 

3  : 

i  :=lef tarrow; 

/ 

keys  J 

12  : 

i  :=rightarrow; 

10  : 

i :  -downarrow; 

end ; 


getkey:=chr':i); 
end ; 

{********»♦****♦**»*****#****•**********************##*********} 


I*  Procedure  :  GotoXY  -  Direct  cursor  positioning  <1 
{*  Parameters  :  X,  Y  *)■ 
O  Entry  Conditions  :  X  and  Y  determine  where  the  cursor  is  *} 
{*  to  be  positioned  on  the  text  screen.  The  upper  left  *} 
{*  is  0,0.  *) 
{»  Frocess  :  The  cursor  will  be  moved  to  the  position  X.  V.  *> 


{♦♦♦♦a*********#*******************#**************************} 
procedure  gotoxy(x,y  :  integer); 
var  i  :  integers 
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begin 

l  Q X - 1 0  requires  the  -following  escape  sequence  : 

ESC ,  = , y+32 , x  +32  > 
l : =@bdo5 (6,wrd (27) ) ; 
i : =§bdos (6, wr d (or d ('  =  '))) ; 
i :  =ibdos (6 , wrd ($20+y ) ) ; 
i : =@bdos (&,wrd i$20+x ) ) ; 
end; 

{********«**•*«****«****«**•*••*•****•«*««*«***«***************} 


{*  Procedure  :  NaitKey  -  Wait  for  a  key  to  be  pressed  *> 
{*  Process  s  This  procedure  is  used  to  allow  the  operator  to  *) 
{*  indicate  he  is  ready  to  proceed  with  some  operation.  No  *> 
{*  value  is  returned.  *> 


C***************************-**********************-***********#*} 

procedure  wait_kev; 
var  dummy  :  char; 
begin 

dummy: =getkey ; 
end ; 


{a******************** *# ************************** *********«***} 


{*  Procedure  :  Goto_Box  -  Move  to  specific  screen  area 
{*  Parameters  :  Box,  X,Y 

{*  Entry  Conditions  :  Box  identifies  which  of  the  three  scr 
{*  areas  the  cursor  is  to  be  positioned  in.  X  and  Y  are  th 
{*  coordinates  relative  to  the  upper  left  corner  of  the  box 
{ft****************** a************************************* 
procedure  goto_box (box  :  boxes;  x,y  :  integer); 
begin 

case  box  of 

q  :  gotoxy (q_x+x ,q_y+y) ; 
a  :  gotoxy (m_x*x ,a_y*y) ; 
h  :  gotoxy (h_x+x ,h_y+y) ; 


#} 


*} 

een*> 
e  *} 
.  *) 
***♦} 


end; 


end; 


f**************************************************************} 
{*  Procedure  :  Clear_Line  -  Clear  a  line  of  a  box  *> 

{*  Parameters  :  Box,  Y  *} 

1*  Entry  Conditions  :  Box  identifies  which  of  the  screen  areas*) 
■C*  is  to  be  affected.  Y  is  line  line  to  be  cleared.  ♦} 

{***»**»*****************»**************»*«***»****•*«****«****; 
procedure  cl ear_l i ne (box  :  boxes;  y  :  integer); 
begin 

goto_box (box ,0,y) ; 

wr itech (chr (cl  ear _to_eol)) ; 
end; 


!**i***#***m»»**mmH»HmH****#»*n*Mm**«nH»*f»**» 
{*  Procedure  :  Clear_Box  -  Clear  an  entire  screen  area  * 
{*  Parameters  :  Box  * 
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{*  Entry  Conditions  :  Box  identities  which  screen  ares  is  to  ♦  > 
{*  be  cleared.  ♦ ; 

{♦♦*#**♦♦♦*♦♦#♦♦♦♦♦♦*♦♦*♦♦*♦♦♦**♦#**#******♦**♦■*♦**♦*♦+»**♦*+**} 
procedure  clear  _box  (box  :  boxes); 
var  line,  lines  :  integer; 
begin 

case  box  of 
q  :  1 ines: =q_l ines; 

•  :  1 1 nes: =*_l ines; 
h  :  1 ines: =h_l ines; 
end; 

for  line:=0  to  lines  do  clear_l ine (box , 1 ine) ; 


{ *******♦♦♦*♦*♦♦♦*•*♦*♦♦♦♦♦***♦♦♦♦*♦♦♦******♦*«*•*«*«■***■»***»*■**«} 

{♦  Function  :  3et_Count  -  Determine  the  size  of  a  screen  area  *> 
{♦Parameter s:Box  *} 

{♦  Returns  :  The  length  of  the  screen  area  in  lines.  *> 

{*  Entrv  Conditions  :  Box  identifies  the  screen  area  to  use.  *} 
{#***♦♦*•*»»♦*♦**»*»»***♦*«♦«♦»»♦♦****♦**»**♦»♦ #♦*♦♦♦*♦***♦*♦*♦} 
function  get_count (box  :  boxes)  :  integer; 
begin 

case  box  of 

q  :  get_count:=q_lines; 
a  :  get_count:=m_l ines; 
h  :  get_count:*h_lines; 
end; 
end ; 

{♦♦♦»*♦***♦♦*«**«»*♦**♦♦♦♦♦*♦♦♦♦»*«»♦*#♦»*»♦*««♦♦»»♦»♦**«♦*»**♦} 
{♦  Procedure  :  Input_Err  -  Signal  an  error  condition  to  user  ♦> 
(*  Parameters  :  Err_Hsg  ♦> 

{*  Entry  Conditions  :  Err_Msg  is  the  text  of  the  message  to  ♦> 
(*  displayed  to  the  operator.  ♦} 

{♦  Process  :  The  Error  Message  is  displayed  below  the  menu  ♦> 
{*  box  and  the  user  is  asked  to  acknowledge  the  message  by  *} 
{*  pressing  any  key.  Control  will  not  return  until  a  key  is  *> 
{•  pressed,  after  which  the  message  will  be  erased.  *1 


procedure  i nput_err (err_«sg 
begin 

clear_line(m,m_lines+l); 
wr i te (err_msg ) ; 
write('  Press  any  key.'); 
wai t_key ; 

clear _I  mein, m _1  ines  +  1 ) ; 
end; 


char_stri ng ) ; 


{♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦a********************************** *♦***♦: 
{♦  Procedure  :  Init_Term  -  One  time  terminal  initialization.  *) 
{«  Process  :  Whatever  initialization  is  required  is  done  here.*) 

♦  *»**H**m*HHHIH*MM*H*M»««*HHH*m*#*H***HOMt: 
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{a************************************************************; 
{*  Yes-No  Query  Module  -  Accept  ves  or  no  answer  from  user  * 
{**********»***************#**************♦*********♦********* 
{♦  A  question  is  asked  of  the  user  which  requires  either  a  * 
{*  yes  or  no  response.  The  question  text  is  supplied  bv  the  * 
£*  calling  routine.  The  user  responds  bv  typing  eitner  a  'Y'  * 
{♦  or  an  ‘N’  (either  upper  or  lower  case)  or  a  All  * 

£*  other  characters  are  ignored.  The  user  types  <RETURN>  * 
{»  when  his  selection  is  complete.  • 

{ ******** « #**#ft******#**#**ft*ft*#**»****#**ft**« **♦*»♦**♦* ****** 

module  quer y_yes_no; 
const 

cursoron  =  $0E; 


cursoroff  =  $0F 
return  =  $0D 
escape  =  $03 
max  _pr  ompt  =  30; 


{  c  n  1 1  C  > 

{  Maximum  length  of  a  prompt  } 


type 

{  Query  Type  Definitions  1 

prompt_string  =  packed  arr  ay  C 1 . .  (iax_prompt  1  of  cnar: 
p_len  =  1. . max_prompt; 
yesno  =  (yes,  no,  i_dunno); 
boxes  =  (q,  a,  h) ; 

{  See  the  TermlQ  Module  for  details  about  the  following  > 
external  procedure  clear _box (box  :  boxes); 
external  procedure  goto_box(box  :  boxes;  x,y  :  integer); 
external  procedure  writech(ch  ;  char); 
external  function  getkey  ;  char; 

{  See  the  Help  Module  for  details  about  the  following  } 
external  procedure  help (help_index  ;  integer); 

T**************************************************************} 
{*  Procedure  ;  Query_YN  -  Set  Yes  or  No  response  from  user.  *} 

{*  Parameters  ;  Prompt,  Prompt_Length ,  Answer,  Help_Index  ♦> 

{*  Entry  Conditions  :  Prompt  is  a  fixed  length  character  *} 

{*  string  containing  the  text  of  the  question  to  ba  asked,  and*} 

{*  Promot_Length  defines  how  many  characters  of  Prompt  to  bis-*} 

{*  play  to  the  user.  Help_lndex  is  the  heip  message  *1 

{*  associated  with  this  question.  *} 

{*  Exit  Condition  :  Answer  will  contain  eitner  Yes  or  No  if  *) 

{*  the  user  made  a  selection,  or  I_Dunr.o  if  the  user  asked  *) 

{*  help  and  didn’t  make  a  selection.  *} 


procecure  quer y_yn (prompt 
pr ompt_l ength 
var  answer 
help_index 


prompt_string; 
p_l  en; 
yesno ; 
integer ) ; 


character  :  char; 
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i  :  p_len; 


begin  {  qyery_yn  J 
answer : =  i _dunno; 

clear  _b  ox  (q);  writech (chr (cursor of f )) ; 
goto_box  <q,0,0) ; 
tor  i:  =  l  to  pro»pt_length  do 
wr i tech (prompt [ i  ] ) ; 
goto_box (q ,0, 1 ) ; 

wr 1 te ( ' PI  ease  Respond  with  Ves  or  No.'); 
repeat 

goto_box (q, prompt _length,0>; 
character : =getkey ; 
case  character  of 

' Y ' , ' y '  :  begin 

answer:=yes; 
wr l te <  '  Yes  ' ! 

end; 

'N  ’  ,  'n  '  :  begin 

answer : =no; 

write!'  No  ') 

end ; 

'?'  s  begin 

answer : =i _dunno; 
write!'  I  0on''t  Know!') 
help (hel p_index ) 
end ; 

end; 

until  (character=chr (return )) ; 
wr i tech (chr (cur s or  on ) ) ; 
clear_box (q) ; 
end ; 


modend. 
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{*•*#********#***«*************#***#****************************} 
{*  Number  Querv  Module  -  Accepts  number  responses  from  the  *3 
{ *  oper ator .  * 3 

{*******#******************************************************; 
1*  A  Prompt  supplied  by  the  calling  program  is  displaved  to  *} 
{*  the  user,  along  with  the  expected  response  value  limits. 

{*  All  numeric  characters  typed  by  the  user  will  be  accepted 
{*  as  the  response,  terminated  by  a  <RETURN>.  All  non-numeric 
{*  characters  will  be  ignored,  and  <RETURN>  will  be  ignored 
{*  if  the  value  is  out  of  range. 

{*  The  following  editing  features  are  available  to  the  user: 

{*  Character  Insert  -  typing  control-S  will  cause  all 

characters  to  the  right  of  the  cursor 
to  move  to  the  right.  Any  character  at  *3 
the  last  position  will  be  lost  if  the  *} 
number  is  already  10  characters  long. 
Delete  -  typing  control-!)  will  cause  all 

characters  to  the  right  of  the  cursor 
to  move  to  the  left,  deleting  the  char¬ 
acter  under  the  cursor. 

-  At  any  time,  typing  a  will  make  the  *3 
number  negative,  and  a  *+*  will  make  it  *) 
positive.  The  default  is  positive. 

It  doesn't  matter  where  the  cursor  is 
when  the  sign  is  changed. 

-  The  left  and  right  arrow  keys  (or  their 

equivalents)  will  cause  the  cursor  to 
move  in  the  appropriate  direction.  The  *) 
cursor  location  when  <RETURN,>  is  pressed*} 
is  not  important.  All  visible  charac-  *1 
ters  will  be  in  the  response.  *3 

{*  Other  Features  include  specific  help  messages  and  units  *3 
{*  conversion .  * 3 


{* 

{♦ 

{* 

{* 

{*  Character 
{* 

{* 

{*  Sign  Change 

{* 

{* 

{* 

{* 

{*  Cursor  Motion 
{* 

{* 

{* 

<* 

{* 


*3 

*3 

*3 

*3 

*3 

*3 

*3 

*3 


*> 
*3 
*3 
♦  3 
*3 


*3 

*3 

*3 

*3 

*3 


module  nueeric_query ; 
const 


lef tarrow 

= 

$08; 

{  Define  arrow  keys  3 

right arrow 

= 

$09; 

cursor  left 

= 

$18: 

{  Define  cursor  motion  c 

ommands  3 

cursorr i ght 

= 

$19; 

ins 

= 

$13; 

Ccntl  S3  1 

Define  Editing  Commands 

del 

= 

$04; 

Ccntl  D3 

change 

= 

$15; 

Ccntl  U3 

return 

= 

$QD; 

null 

= 

$00; 

«a>'_prompt 

= 

o  2  $ 

{  Maximum 

ler.gtn  of  a 

prompt  3 

max  _num 

r 

10: 

1  Maximum 

length  of  a 

number  3 

type 

!  Query  Tvpe  Definitions  3 

unit  =  (mils,  inches,  ram,  scalar;; 
promot_stri  ng  =  packed  arr  ayC  l .  .  max_orompt  3  o*  cnar; 
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p_len  =  1 . . sax .prompt ; 
boxes  =  (q,  m,  hi: 

{  Screen  I/O  Declarations  } 

{  See  the  TermlO  Module  tor  details  on  the  following  1 
external  procedure  goto_box(box  :  boxes;  x,y  :  integer); 
external  procedure  cl  ear _1 ine (box  :  boxes;  v  :  integer); 
external  procedure  cl ear_box (box  :  boxes); 
external  procedure  writech(ch  :  char); 
external  procedure  wait.key; 
external  function  getkey  :  char; 

{  See  the  Help  Module  for  details  an  the  following  ) 
external  procedure  help (help.index  :  integer); 

{**************************************************************} 


{*  Procedure  :  QueryNUM  -  Accept  Number  from  user  *> 
{*  Parameters  :  Prompt,  Proapt_Length ,  MIN,  MAX,  Answer,  *} 
{*  Units,  Help_Index  *> 
{*  Entry  Conditions  :  Prompt  is  a  fixed  length  character  *> 
{*  string  which  contains  the  question  being  asked.  Prompt.  *> 
{*  Length  is  the  number  of  characters  of  Prompt  to  display.  *) 
{*  MIN  and  MAX  describe  the  valid  range  of  the  number  in  mils.*} 
{*  All  internal  numbers  are  stored  in  units  of  ails  (or  as  *} 
{*  unitless  scalars).  Units  represents  the  default  units  *} 
t*  used  for  display  only.  Help.index  is  the  spee:>ic  message  *} 
{*  associated  with  this  query.  *> 
{*  Process  :  MIN  and  MAX  are  converted  from  mils  to  Units.  *} 
{*  and  displayed  beneath  the  Prompt.  The  User's  response  is  *} 
{*  compared  with  MIN  and  MAX  to  verify  i;.  A  valid  response  *} 
{*  is  converted  from  Units  to  mils  and  is  returned  to  the  *} 
{*  caller.  The  user  may  change  the  default  units  at  any  time  *} 
{*  by  pressing  control-U  until  the  desired  units  appear.  *} 
{*  Exit  Conditions  :  Answer  will  contain  a  number  between  MIN  *} 
{*  and  MAX  mils  (or  scalar).  *> 


{4***********#******#**«*#**#**********************************} 

procedure  querynum (prompt  :  prompt.str ing; 

prompt.l ength  :  p_Ien; 

min,  max  :  integer; 

var  answer  :  integer; 

units  :  unit; 

help.index  :  integer); 

var  range.vi ol at i on , 
help .request, 
unit. change  :  boolean; 

i  :  1 . . raax.prampt ; 
response,  d.min,  d.max  :  real; 

dummy  :  char; 

procedure  getnumber; 

type  pos  =  1 . . max.num; 
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var  character  :  char; 

point,  negative  :  boolean; 

nu»ber_string  :  packed  arravCl . .  ma::_nuni3  of  char; 
current_posi ti on , 
point_position,i  :  pos; 

procedure  show_nuiaber ; 
var  1  :  pos; 
begin 

goto_b ox (q, current _positi on +prompt_length+l,0); 
for  i : =current_posi tion  to  max_nuffl  do 
writech(n umber _string[i3); 
goto_box(q,current_position+prompt_length+1.0>; 
end ; 

procedure  signich  :  char); 
begin 

goto_box(q,prompt_length+l,0); 
nt i tech (ch ) ; 

goto_box(q,current_position+pronpt_length+l,0) 

end; 

procedure  add_digit; 
begin 

number _string[current_oosi tion 3: ^character ; 
writech (character) ; 
if  current_posi ti on<aax _nua 

then  cur rent_posi tion: =current_posi ti on+1 
else  wri tech (chr (cursor  1  eft ) ) 

end; 

procedure  insert_di git; 
var  i  :  pos; 
begin 

if  point 

then  if  point_position>=current_position 
then  begin 

point _p os i tion: =point_positi on +1 
if  point_position>max_num 
then  point:=false 

end ; 

if  cur  rent  _pos  i  t  i  on<  max_nufn 

then  for  i:=max_num  downto  current_posi ti on+1  do 
nu(noer_string[i3:=nu»ber_string[i-l]; 
number _stringCcur rent _position3:=  ; 
show_number 
end ; 

procedure  delete_digit; 
var  i  :  pos; 
begin 

it  point 
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then  begin 

it  current_positian=paint_position 
tnen  pointmtalse; 

1 t  point _positi on >current_position 

then  point_position:=point_position-l; 

end; 

it  current_posi  ti  on'>«ax_num 

then  tor  1  mcurrent_posi  tion  to  *ax_nua-l  do 
number  _string[i3mnuaber_string[i-t-13; 
number_string[*ax_nu*]m  "; 

5how_nuaber 
end ; 

procedure  convert; 
var  power  ;  real; 

procedure  get_int_part (position  :  pos); 
var  i  ;  pos; 
begin 

power : =1 ; 

■for  imposition  downto  1  do 

it  ( (nuaber_str ingti 3 >» ' B ' )  and 
(nu«ber_string[i3<='9')) 
then  begin 

response; =resp on se+power# 

(ord (nuaber _str ingCi 3 ) -ord ( '  0  ’ )  > 
power  mpower*10 
end; 

end; 

procedure  get_trac_part (position  :  pos); 
var  i  ;  pos; 
begin 

power : =0. 1 ; 

tor  imposition  to  max_nuin  do 

it  ( (nuaber_stringti 3 >= '0  ' )  and 
( number _st r i ng [ i 3<='9 ') ) 
then  begin 

reso  on  semresp  on  se+power* 

lord (number _str i ng[ i 3 ) -ord ( '0') / 
oower : =power/ 13 
end ; 

end ; 

begin  {  convert  } 
responsemO.  0; 
it  not  point 

then  get_int_part (max _num) 
else  begin 

it  point_position>l 

then  get _i nt_p art ( point _positi on -1); 
it  point  positionv max  num 


QueryNua  Module 


then  get_frac_partipoint_position+l> 

end; 

if  negative 

then  response: =response*  i- 1 ) ; 

end ; 

begin  C  getnumber  } 

current_posi tion; =1 ; 

for  i;=l  to  «ax_nu<s  do  nuaber _string[i ] : = '  ; 

show_nuinber ; 

help_request; =f al se;  uni t_change: =f alse;  point:=f alse; 

negative:=f alse; 

repeat 

character:=getkey; 
case  character  of 


begin 

\  if  (point  and  (current_position=point_position) ) 

v - <hen  point:=false; 

add_digit 

end; 

' . '  :  if  not  point 
then  begin 

point _position:=current_positi on; 
add.digit;  point:=true 
end; 

;  begin 

negative; =true; 
si gn (  - ' > 
end; 

'+'  :  begin 

negative; =f al se; 
si gn  (  '  ' ) 
end; 

'?'  :  help_request: =true; 
end;  {  case  } 
case  ord (character )  of 
ins  :  insert_digit; 
del  ;  del ete_di gi t ; 
change  ;  unit_change; =true; 
leftarrow  :  1 i  cur r ent _posi t i on >1 
then  begin 

curr ent  _oosi t i on ; =curr ent  _posi 1 1 or- 1 : 
writecn<chr( cursor  left) ) 
end; 

nghtarrow  :  if  current_positionMna:;_num 
then  begin 

current_position;=current_positiDn+l; 

writech(chr(cursornght)i 

end; 


return  :  convert; 
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end  {  case  > 

until  t icharacter=chr (return) >  or 
(characters  '  ?  ' )  or 
(cnaracter=chr(change))); 
end;  £  getnumber  > 


function  to_i nches (m 1 s  :  integer)!  real; 
begin  to_inches: =«u  1 s/ 1000. 0  end; 

function  to_m»(mils  :  integer):  real; 

begin  to_am: =to_i nches (ei 1 s ) *25. 4  end; 


begin  £  querynum  > 
cl ear_box  <q) ; 
repeat 

range_violation:=false; 
clear_line(q,0) ; 

for  i:=l  to  prompt_l ength  do  writech (prooptti 1) ; 
for  i:  =  l  to  max_num  do  writech!'  '); 
case  units  of 
inches:  begin 

ur i te  ( '  inches  ' ) ; 

d_min:=to_i nches (Bin) ; 
d_«ax : =to_i nches (sax ) ; 
cl  ear _1 ine (q ,  1 ! ; 

write! 'Range:  ' ,d_ein: 7s 3, '  to  ',d 
end; 

b«i:  begin 

write!'  si  1 1  i  meter  s  ' ) ; 
d_ain:=to_mn>(min) ; 
d_aax : =to_rara (max ) ; 
clear_l ine (q , 1 ) ; 

write! 'Range:  '  ,d_mi n : 7: 3 , '  to  ',d 
end; 

nils:  begin 

write!  ’  mils  ' ) ; 


d _fli in: =min;  d_max : =max ; 
clear _1 i ne (q , 1 ) ; 

wr i te (' Range:  ' , d_mi n : 6: 0 ,  ’  to  ',d 
end; 

scalar:  begin 

d_mi n : =  mi n ;  d_max : =max ; 
cl  ear _1 ine  Iq ,  1) : 

wri  te! 'Range:  '  ,d_min:fc:0,  '  to  ',d 
end; 

end;  £  case  } 
getnumber ; 
if  unit_change 

then  case  units  of 

scalar:  uni ts: =scal ar ; 

mils:  uni ts: =i nches; 
inches:  units:=mm; 


max: 7: 3) 


max : 7: 3) 


max: 6:0) 


m  a :: :  6 :  0  5 
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an:  units:=ails; 
end: 

if  help_request 

then  help <help_inaex ) ; 
it  ((not  (unit_change  or  hel p_request ) )  and 
( (r esponse<d_«un )  or  (r esponse>d_®ax ) ! ) 
then  begin 

clear _1 1 ne (q ,2) ; 

write( 'Response  not  within  range.  Press  any  key  to  cont 

inue ' ) ; 

wait_key; 
cl ear_l i ne (q , 2) ; 
range_violation:=true 
end; 

until  (not  (help_request  or  range_violation  or  uni t_change! ) ; 
case  units  of 

ails, scalar  :  answer : =round (response) ; 

inches  :  answer : =round (response* 1000) ; 

sa  :  answer : =round (response* 1 000/2 . 54 ) : 

end; 

clear_box  (q) ; 
end ; 


eodend 
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>v* 


Itf: 


»v% 


& 


& 


>;.• 


{»*********•***********»************»*********«***************«} 
{*  String  Query  Module  -  Accepts  string  responses  from  the  *> 
{*  operator.  *> 

{«*»*••*****••«****•»*#*»#*****»•*»*******«**•»*****»**•**«*+**} 
{*  A  Prompt  supplied  by  the  calling  program  is  displayed  to  *) 

{*  the  user,  along  with  the  expected  response  length  limits.  *1 

{*  All  text  typed  by  the  user  will  be  accepted  as  the  *1 

{*  response,  terminated  by  a  <RETURN>.  All  characters  typed  *1 

{*  after  MAX  characters  will  be  ignored,  and  <RETURN>  will  be  *) 


{# 

{* 


ignored  until  MIN  characters  have  been  typed. 

The  following  editing  features  are  available  to  the  user: 


{*  Character  Insert 
{* 


#} 

*} 

*} 

*> 


<* 

{* 


{*  Character  Delete 
{* 


*} 

*> 

*> 


<* 

{* 


typing  control-S  will  cause  all 
characters  to  the  right  of  the  cursor 
to  move  to  the  right.  Any  character  at  *> 
the  last  position  will  be  lost  if  the  *> 
string  is  already  MAX  characters  long, 
typing  control-D  will  cause  all 
characters  to  the  right  of  the  cursor 
to  move  to  the  left,  deleting  the  char-  *} 
acter  under  the  cursor.  *} 

The  left  and  right  arrow  keys  (or  their  *} 
equivalents)  will  cause  the  cursor  to  •} 
aove  in  the  appropriate  direction.  The  *} 
cursor  location  when  <RETURN>  is  pressed*} 
is  not  important.  All  visible  charac-  •> 
ters  will  be  in  the  response.  *} 

Other  Features  include  specific  help  messages  and  UPPER  or  *} 
(*  lower  case  conversion.  *} 

{**»**»t***««***»***«*t***«*********«»*****«*4**»*****«»«t«***«} 

module  string_query; 


{*  Cursor  Motion 

{* 


{* 

{* 

{* 

{* 

{♦ 


const 

1 ef tarrow 
r i ghtarrow 
cursor  left 
cursorr ight 
ins 
del 
return 
null 
huh 

max_prompt 
max  str 


$08 

$09 

$18 

$19 

$13 

$04 

$0D 

$00 

$3F 

30: 

30; 


{  Define  arrow  keys  } 


{  Define  cursor  motion  commands  } 


(cntl 

(cntl 


S) 

D> 


{  Define  Editing  Commands 


•  ? 


{  Question  Mark 

(  Maximum  length  of  a  prompt  } 
{  Maximum  length  of  a  string  } 


tvpe 
{  Query 


Type  Definitions  } 


prompt_string 
p_ien 
position 
string_case 
char _string 
boxes 


packed  arr ay C 1 . . max_or ompt 3  of  char: 

1 . .  max_prompt ; 

1 . .  max_str; 

(upper,  lower,  none); 

arravtl..max  str]  of  char; 
h); 


packed 
<q,  m, 
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{  Screen  I/O  Declarations  > 

{  See  the  TerelO  Module  for  details  on  the  following  > 
external  procedure  aoto_box (box  :  boxes;  x,y  :  integer); 
external  procedure  clear_box (box  :  boxes); 
external  procedure  Mritech(ch  :  char); 
external  function  getkey  :  char; 

{  See  the  Help  Module  for  details  on  the  following  } 
external  procedure  help (hel p_index  :  integer); 

{***#*•*••***»•****#»#»*»•**«*•****•*•#•**#*•***»«***•«****«•**} 


{*  Procedure  :  QuerySTR  -  Accept  String  response  to  query  *} 
{*  Parameters  :  Prompt,  Prompt_Length ,  MIN,  MAX,  Answer,  *} 
{*  String_Length ,  Make_Case,  Help_Index  *} 
{*  Entry  Conditions  :  Prompt  is  the  question  being  asked  of  *} 
{*  user,  and  is  a  fixed  length  string  of  characters.  Proopt_  *) 
{*  Length  indicates  how  many  of  those  characters  are  to  be  *> 
{*  displayed.  MIN  and  MAX  indicate  the  minimum  and  maximum  *} 
{•  number  of  characters  that  will  be  accepted  as  a  response.  *1 
{*  Make_Case  indicates  what,  if  any,  case  conversion  will  be  *} 
{*  performed  on  return,  and  Help_Index  identifies  the  help  *> 
{•  message  associated  with  this  query.  *} 
{*  Exit  Conditions  :  Answer  will  contain  the  text  typed  by  the*) 
{*  user  in  response  to  Prompt.  The  length  of  Answer  will  be  *) 
{*  between  MIN  and  MAX  characters,  and  will  be  indicated  by  •) 
{*  Str ing_Length.  *} 
{*  THe  HELP  routine  will  be  invoked  in  response  to  '?  being  *> 
{*  typed  at  any  time,  and  a  question  mark  is  therefore  not  a  *) 
{*  valid  character  in  a  response.  *) 


{*««##*•*•*»************»»****•»*•»*•«***»*»#**•******«»****** t) 

procedure  querystr (prompt  :  prompt_str ing; 

prompt_l ength  :  p_len; 
min,  max  :  position; 

var  answer  :  char_string; 

var  string_length  :  position; 
make_case  :  string_case; 
help_index  :  integer); 

var  help_reouest  :  boolean; 

j  :  p_ien; 
i  :  position; 

{**»**#***»******»*«»»»»«*»*#»****»»*•****•***♦*»»****»*»»*»***} 
{*  Procedure  :  GetString  -  Accept  users  response  *} 

'»  Process  :  Does  most  of  the  work  -  accepts  and  edits  text  *> 
{*  supplied  fro#  the  keyboard  into  Answer.  *) 

{#*##*♦#»*********#*♦****** #«»**#4»******»*#**»#*#********t**»*} 

procedure  getstring; 
var  character  :  char; 
i,  cur rent_posi ti on  :  position: 


{***********************************♦****#♦###****#*♦♦*♦*♦###**) 
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{*  Procedure  :  Redisplay  *> 

{*  Process  :  Display  current  version  of  Answer  on  the  entry  *> 
£*  line.  The  cursor  position  is  not  changed.  ♦ 1 

{♦hi*###***#**#**#****#**##***#*#****************#**************} 
procedure  redisplay; 
var  i  :  position ; 
begin 

goto_box(q, prompt _length+cur rent _position,0); 
for  i : =current_posi tion  to  str i n g _1 ength  do 
writech (answer ti  1) ; 
if  string_length<max 

then  for  i s =str ing_length+i  to  max  do 
wr i tech ('_'); 

gato_box(q,prompt_length+current_position.0); 
end ; 

I**************************************************************} 
{*  Procedure  :  Insert_Char  -  Open  a  space  in  Answer  *} 

{*  Process  :  The  characters  of  Answer  from  the  cursor  to  the  *} 
{*  end  are  shifted  to  the  right  one  space.  *1 

{*******#***««********•*«»*»«*»***««•****••*•***«»•*«»*********} 
procedure  insert_char; 
var  i  :  position; 
begin 

if  ( (current.position  <  max)  and 

lstring__length>=cur  rent  .posit  ion) ) 
then  begin 

for  i:=max  downto  current_position+l  do 
answer  C i ] : =answer  Ci-1 1 ; 
if  str i ng_l ength<«ax 

then  string_length:=string_length+l; 
answer [current.position] :  =  '  '; 
redi splay 

end; 

end; 

[ #***#**************#****#********##»******#»*********«********} 
{♦  Procedure  :  Delete.Char  -  Delete  character  under  cursor  *} 
{*  Process  :  All  the  characters  of  Answer  to  the  right  of  the  *} 
C*  cursor  are  moved  right  one  space,  and  the  last  character  *} 
C*  replaced  by  a  space.  *1 

{♦*#*m**i#**»**H*#*#*m*«H»#m#tm**»H***i»*»»t*»»«t**t} 
procedure  delete.char; 
var  i  :  position; 
begi  n 

if  ( (current.posi ti on  <max)  and 

(string_length>=current_position>) 
then  begin 

for  i : =current_posi ti on  to  max-1  do 
answer [ i 3 : =ans wer C i +1 3 ; 
string_length:=string_length-l; 
answer [max  1 : = 
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f 

t 
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redisplay 

end; 

if  ( (current.posi ti on=max  )  and  (str i ng_l ength=ma>: ) ) 
then  begin 

string_length:=string_length-l; 
answer [max ]:= '  ; 

wr i tech ( ' _' ) ;  writech  (chr (cursor  left ) ) 
end; 

end; 

{*««*«•#*****•***•**»*»**•»*•*»*««***•***«**«**«*•*•«**«*•*****} 
{*  Procedure  :  Move.Left  *} 

{*  Process  :  The  cursor  position  within  Answer  is  moved  one  *} 
{*  space  to  the  left,  if  possible.  *> 

{»•»*»*«**#*»»»********•***«*•******************••**«**«*******} 
procedure  move.left; 
begin 

if  current_position>l 
then  begin 

current_position:=current_position-l; 

writech(chr(cursorleft)); 

end; 

end; 

{****«»***«*«**«*****•*••**»*•**•*«#•**•#•****** ******* t«« ****♦} 

{*  Procedure  s  Move.Right  *} 

{*  Process  :  The  cursor  position  within  Answer  is  moved  one  *J 
(*  space  to  the  right,  if  possible.  *) 

{*«****«****»*»«** ft**ft***»**« «****«**•*• *4 **«***»*******« *«***} 

procedure  aove.right; 
begin 

if  current_posi ti on<«ax 
then  Degin 

c ur rent _positi on :scur rent .positional; 
writech(chr(cursorright)); 
end; 

end; 

{******44*44***44***4**44**4********«***«**4-****<HHHHHHHHHHHHH»*} 

{♦  Procedure  :  Add_Char  -  append  keyboard  character  to  Answer  *} 
{*  Process  :  If  there  is  room,  Character  will  be  added  to  *} 

{»  Answer,  and  the  cursor  position  will  be  updated.  *} 

,l*****#*##********4*«4**4#************#*4*#**4*4444**#*4*44*444} 

procedure  add.char; 
begin 

if  str ing_length<current .position 

then  str ing.length: =current .position; 
answer [cur rent_position];=character; 
wr  itech (character ) ; 
if  current.posi ti on<max 

then  current_position:=current_position+l 
else  writech (chr (cursorleft) > : 
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end ; 

begin  {  getstrlng  } 

goto_box (q , prompt _1 eng th+1 , 0) ; 
if  max>max_str  then  max : =max_str ; 
current_posi ti on: =1 ; 
string_length;=0; 

for  i:=l  to  *ax_str  do  answerti3:=' 

help_request;=false; 

repeat 

character ; =getkey ; 
case  ord (character )  of 

ins  :  insert_char; 
del  :  delete_char; 
leftarrow  ;  «ove_left; 
rightarrow  :  move_right; 

return  :  if  str ing_length<min 

then  character:=chr (null ) ; 
huh  :  help_request ;=true; 

end; 

if  ( (character >= '  ')  and  (character<=chr ( 127) ) ) 
then  add_char; 

until  ( <character=chr (return) )  or  help_request) ; 
end ; 

{*  Procedure  :  Make_Upper  -  Convert  all  characters  in  Answer  *} 

{*  Process  :  All  alphabetic  characters  in  Answer  are  trans-  *> 

{*  lated  to  upper  case.  Punctuation  and  numbers  are  not  *} 

{*  effected.  *} 

{a**-***********************************************-*******#***} 
procedure  make_upper; 
var  i  :  position; 
begin 

for  i:=l  to  max  do 

if  ((answerti!  >=  'a')  and  (answerti!  <=  'z')) 

then  answer t i 3 : =chr (ord (answer  C i 3 ) -ord ( 'a ' ) +ord ( ' A ' ) ) 

end; 

{ft****************************#**********#********************} 

{*  Procedure  :  Make_Lower  -  Convert  all  characters  in  Answer  #> 

{#  Process  :  All  alphabetic  characters  in  Answer  are  trans-  *> 

{*  lated  to  lower  case.  Punctuation  and  numbers  are  not  »} 

{*  effected .  *> 

{****•»■»•»*****#*♦**#****  *#•******♦***♦**«•<►****♦#**  *****#*■*****♦•♦•#} 
procedure  make_lower; 
var  i  ;  position; 
begin 

for  i:=l  to  max  do 

if  ((answerti!  >=  A’)  and  (answerti!  <=  'Z')) 

then  answer  til:=chr(ord(answerti!) -ord (  A  ) +ord ( ' a  ' ) ) 

end ; 
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Begin  {  querystr  } 
clear_box  (q) ; 
repeat 

goto_box <q,0,0) ; 

•for  j:=l  to  prompt_length  do  wr  1  tech  ur ompt C  j 3 ) ; 
wr 1  tech ( '  ' ) ; 

■for  1 :  =  1  to  max  do  writech  ( ) ; 
goto_box (q ,0, 1 ) ; 

write ( 'Response  must  be  between  ',min:2,  and  ',max:2,'  character 

s'); 

getstring; 

it  help_request  then  help (help_index) ; 
until  not  help_request ; 
case  make_case  of 

upper  :  make_upper; 
lower  :  make_lower; 

end ; 

clear_box (q) ; 
end  j 

modend. 

{*■**■»*■****■**•*■***♦******•**•»******■****■*■**♦*■»*+****■»*♦•»***■»■****•»**} 

{*  Operating  System  Dependent  File  Operations  *} 

{*******#*«*****«»****»«*##»*#**>«**»»*»***«*«*********4***4*ft*} 

module  das_file; 

type  filespec  =  arrayC1..123  of  char; 
drive_id  =  (A,  B ) ; 

C3ee  the  Disk  ID  module  for  details  on  the  following  3 

external  procedure  switchdisk (drive  :  drive_id;  disk_id  :  integer); 

{4444444444*4*4444444444444444444*44444444444444444444444444444} 

{*  Procedure  :  ftun_File  -  Execute  a  program  *} 

{*  Parameters  :  File_Name,  Drive,  Disk_ID  *} 

•C*  Entry  Conditions  :  The  parameters  identify  an  executable  *3 
{*  program  that  is  to  be  run.  Control  will  not  return!!!!!  *} 

procedure  r un_f i  1  e ( f i  1  e_name  s  -filespec;  drive  :  drive_id: 

di sk_id  :  integer) ; 

var  f  :  tile; 

fs  :  string  1121; 
i  :  integer; 

begin 

switch  dish (drive ,disk_id) ; 

i  s  =  1 ; 

repeat 

f  sC i 3 : =f i 1 e_nameC i 3 ; 
i :  =i  + 1 ; 

until  < ( f  s  C i 3  =  '  ')  or  ( i  > 1 2 )  )  : 
f s C 03 : =chr  ( i - 1 ) ; 
assign (f,fs); 
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reset ( f ) 
c  h  a  i  n  ( f ) 
end ; 

aodend . 
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{t»*«****««**»*******«*********«*****«**«*******+**«»4*««««*«*«; 

{*  DiskID  Module  -  Identifies  diskettes  in  drives  and  ♦  } 
{*  prompts  operator  wnen  switches  are  * ) 
(*  necessary.  *> 
{****•««*****•*•**********«***«**«**«***«**•»»**«***«****•*«*«*} 
{*  Every  diskette  used  by  the  system  contains  a  small  file  *} 
{*  with  a  DiskID  number  as  its  only  element.  This  file  is  ♦  } 
{*  referred  to  when  the  identity  of  any  diskette  is  required.  *> 
{*  If  the  file  isn  t  present,  then  the  DiskID  is  set  to  0.  *> 


■odule  diskid; 
const  mai:_prompt  =  30; 

max_str  =  30; 


{  Maximum  length  of  a  promot  1 
{  Maximum  length  of  a  string  } 


type 

[  Query  Type  Definitions  > 

prompt_string  =  packed  ar ray  Cl . . max _pr ompt ]  of  char; 
p_len  =  1 . . max_prompt ; 
yesno  =  (yes,  no,  i_dunno); 
boxes  =  (q,  m,  h) ; 

{  File  Access  Type  Definitions  } 
dri ve_id  =  (A,  B) ; 

id_num  =  file  of  integer; 

{  Screen  I/G  Declarations  ) 

{  See  the  TermlO  Module  for  details  on  the  following  > 
external  procedure  cl  ear _1 i ne (box  ;  boxes;  y  ;  integer); 
external  procedure  wait_key; 

C  Query  Declarations  } 

{  See  tne  QueryYN  Module  for  details  on  the  following  } 
external  procedure  query_yn (prompt  :  pronDt_string; 

prompt_l ength  ;  p_len; 

var  answer  :  yesnc; 

help_index  :  integer); 

C  See  the  LinkFile  Module  for  details  on  the  following  } 
external  procedure  close_al 1 (dr i ve  ;  drive_id); 

■(  CP/M  BDOS  call  necessary  to  switch  diskettes  } 

{  This  function  is  defined  in  the  MT+  Run-Time  Library  > 
external  function  @bdos(func  :  integer;  parm  :  word)  :  integer; 


{*  Procedure  :5et_ID  * ; 
t*  Parameters  :  Drive,  I D _F i 1 e  ♦; 
{*  Entry  Conditions  :  I D _F 1 1 e  is  the  identification  *ile,  and  *1 
{*  Drive  identifies  which  drive  is  to  be  used.  * J 
(*  Frocess  :  The  physical  filename  'DISK. ID'  on  drive  Drive  *] 
l *  is  associated  with  the  pascal  logical  file  ID_File.  *1 
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procedure  set_id(drive  :  drive_id;  var  id_file  :  i d _ n u m > ; 
begin 

case  drive  of 

A  :  assi  gn ( i d_f i 1 e , ' As  DISK. ID  ) ; 

6  :  assi gn ( i d  _f i le 8: DISK. ID  '} ; 
else  assign(id_file,  ' A: DISK. ID  ' ) ; 
end; 
end; 

{******************#**#*******************************«********} 


{*  Function  :  WhichDisk  ♦} 
{*  Parameters  :  Drive  *> 
{*  Result  :  Disk_ID  of  diskette  in  Drive  *> 
{*  Entry  Conditions  :  Drive  identifies  the  drive  to  be  looked  *} 
<*  at.  O 
{*  Exit  Conditions  :  The  function  will  return  the  Disk_ID  of  *} 
{*  the  diskette  in  drive  Drive.  A  value  of  8  indicates  that  *1 
{*  either  the  diskette  is  not  labelled,  or  there  is  no  disk  *} 
{*  in  the  drive.  *1 


{**•*•**««***»««•***«•»*****»•***»*****«****»«*#****•*****«****} 
function  whichdisk (drive  :  drive_id)  :  integer; 
var  id_file  :  id_num; 

id  s  integer; 
status  :  byte; 


begin  C  whichdisk  } 

set_id (drive, id _file); 

{  IGRESULT  is  a  function  that  returns  the  value  of  the  CP/M 
BDQS  result.  It  is  defined  in  the  MT+  library.  } 
reset(id_file);  status:=ioresult; 
if  status'. >255 
then  begin 

read (id_f i le , i d ) ; 
status: =ioresul t ; 
end; 

if  status=0  then  whi chdisk : =i d 


end; 


else  whichdisk:=0; 


{***♦♦*#•*****■***■»#■»  +  ****•*♦******#*♦■##♦******♦•***»******•****#*•*•»} 


C*  Procedure  :  ID_Cisk  -  Write  an  ID  number  on  the  diskette  *J 
{*  Parameters  :  Drive,  Disk_Num  *1 
{*  Entry  Conditions  :  Drive  identifies  the  drive  the  diskette  *> 
{*  is  in,  and  Disk  Nura  is  the  number  to  be  written  in  tne  *> 
{*  ID  File.  ”  *> 


{♦****##*#**#** a**************************************** #*****#} 
procedure  i d_di sk (dr i ve: dr i ve_id ;  di  sk_num:  integer ) ; 
var  i d _f i  1  e  :  id_num; 

status  :  integer; 
begin 

set_id(drive,id_file); 
rewrite ! id_f i le; ; 
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wr i te ( id_f i le,disk_nue) ; 
close (id _file, status); 


{«»«**»*ftft***«**«ft**t*«*t*****««*»*«««**4***««*«**«**«*#»*«*#«*} 

{*  Procedure  :  SwitchDisk  -  Make  sure  that  the  right  diskette  *} 
l*  is  in  the  right  drive.  *) 

{*  Parameters  :  Drive,  D i sk _I D  *} 

{♦  Entry  Conditions  :  Drive  and  Disk_ID  identify  the  desired  *> 

{*  setup;  that  is,  Drive  is  to  contain  diskette  Disk_ID.  *} 

{*  Exit  Conditions  :  The  proper  diskette  Mill  have  been  eoun-  *} 

(*  ted  in  the  proper  drive.  *} 

{44444444444444444444444444444444444444444444444444444444444444} 
procedure  switchdisk (drive  :  drive_id;  disk_id  :  integer); 
var  answer  :  yesno; 

id  :  integer; 

d  :  char; 

begin  {  switchdisk:  > 

id:=whichdisk (drive) ; 
if  id<>disk_id 
then  begin 

if  drive=fi  then  d:='A'  else  d:='B'; 

close_all (drive) ; 

repeat 

clear_line(q,-l) ; 

wr ite (' Insert  disk  number ' ,disk_id:3, '  into  drive  ',d:l); 
repeat 

query  ynt'Ready  to  Go?  12, answer , 100 

> ; 

until  answer^yes; 
clear_line(q,-l) ; 

i d: =0bdos ( 13 , wrd (0) ) ;  {  Reset  Disks  > 
i d: =whi chdisk (drive) ; 
if  id<>disk_id 
then  begin 

write('This  is  disk  number ', i d: 3, ' ,  not  ',disk  id: 

3); 

write!'!  Press  any  key.');  wait_key; 
end ; 

until  id=disk_id; 
end; 


{*«*HM****#*»*t*»«*«»H***im***#**»*#*»#*l**#**»»<*tt#*#«**») 

{*  Procedure  :  New_Disk  -  Prompt  the  user  to  Label  a  hew  Disk  *} 
{*  Parameters  :  Disk_ID  ») 

{*  Entry  Conditions  :  Disk_ID  is  the  number  to  be  written  on  ») 
{*  a  newly  formatted  diskette.  *} 

{44444444444444444444444444444444444444444444444444444444444444} 

procedure  new_disk:  (disk._id  :  integer); 
var  answer  :  yesno; 
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begin 

clear_line(q,-2) ; 

writeCGet  out  a  blank  formatted  disk  (disk  0  )'); 
repeat 

query_yn('Are  you  ready?  14 , answer , 19) 

until  answer=yes; 
switchdisk (B,0) ; 
id_disk (B,disk_id)  ; 
cl  ear _1 ine (q  ,-l ) ; 

writeT'Label  this  disk  as  Disk  #  ' , di sk_i d: 3) ; 
repeat 

query_yn ( 'Have  you  labelled  it  vet?  '  ,25, answer ,22) ; 
until  answer=yes; 
clear_line(q,-l) ; 
clear_line(q,-2) ; 
end; 


modend . 
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{****•*•«*•*«*#»•*«•**•«**«***»***«**•****#***•*****»****»*****} 


{*  LinkFile  Module  -  Controls  access  to  all  tiles  *) 

t**************************************************************; 

{*  All  system  tiles  are  maintained  as  two  doubl v-linked  *} 

{*  circular  lists.  One  list  contains  all  of  the  allocated  *1 

{*  records  in  the  file,  and  the  other  contains  all  of  the  *) 

{*  free  records.  Every  record  in  the  file  must  belong  to  one  *} 

{*  of  these  lists.  Non  linked  files  are  also  supported.  *> 

For  maximum  portability,  the  maximum  record  length  is  128  *) 

{*  bytes.  *} 


{**»****»*«****«*****•«*»*«*•»****»**•**«*•*•******************} 

US  +  J 

module  file_access; 
const 

end_of_list  =  -1;  {  Invalid  Record  Number  ) 

max_open  =  10;  {  Maximum  numoer  of  files  } 

max_rec_si:e  =  128;  -1  CP/M  Maximum  Record  Size  } 

max_buffs  =  2;  C  Maximum  number  of  simultaneously  open  files 


type 

{  File  Access  Type  Definitions  > 
drive_id  =  (A,  B); 

filespec  =  packed  array t 1 .. 12]  of  char; 
whichfile  =  l..max_open; 
links  =  record 

next , 

prev  :  integer; 
end ; 

max_rec  =  record 

case  boolean  of 

true  s  (data  :  packed  arravtl. .max_rec_size]  of  cha 

r>  S 

false:  (link  :  links); 
end; 

data_file  =  file  of  raax_rec; 
file_desc  =  record 

fs  :  stringCH]; 
linked  :  boolean; 
drive  :  drive_id: 
on_line  :  boolean; 
rec_len,  {  Record  Length  > 
disk_id,  {  Diskette  containing  file  } 
status,  {  System  Dependent  File  Status) 

first,  i  Record  Number  of  First  Entry  } 

next _f ree,  (  Record  Number  of  Free  List  ) 

recs_avail,  {  Number  of  Unused  Records  ) 

next_read,  C  Next  record  pointer  > 
last_read,  {  Last  Record  Accessed  > 
last_p_rec  :  integer;  •[  Last  Physical  Record  1 
buf_num  :  byte;  {  Current  buffer  number  } 
end ; 
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where  =  record 

linked  :  boolean; 

File_name  :  Filespec: 

drive  :  drive_id; 

disk_id , 
rec_len, 
recs_avai 1 , 

First, 

Free  :  integer; 

end; 

{  Global  Arravs  oF  File  inForaation  > 

var  Files  ;  arraytwhichFilel  oF  File_desc;  i  Logical  File  inFo  } 

P_BuFF  :  arr avC 1 . . max _buFF si  oF  oata_File;  i  Physical  buFFer  arrav  > 

P_slot  :  array  1 1 ..  max_buFFsl  oF  byte;  £  Which  slot  buFFer  oelon 

g s  to  } 

next_l  :  bvte;  i  Nevt  slot  to  Free  uc  ' 

DuFter  :  max_rec;  {  Temporary  buFFer  area  1 

£  5ee  the  BisklO  Module  For  details  on  the  Following  1 

external  procedure  switchdisk (drive  ;  drive_id;  diskid  :  integer); 

£  System  Dependent  Random  Access  File  Routines  > 
procedure  Fread (Fi le_num  ;  whichFile;  rec_nu«  ;  integer; 

var  buFFer  s  aax_rec;  linkonly  :  boolean); 

var  p_rec,  rec_oFFset,  i,  bytes  :  integer; 
begin 

with  t i 1 esCFi 1 e_nu»]  do 
begin 

p_r ec :  =  < rec_nua  *  rec_len)  div  *ax_rec_size; 

rec_oFFset :  =  (rec_nu«  *  (rec_len  nod  max_rec_size) )  mod  max_rec_ 

size; 

iF  p_rec< >1 ast_p_rec 
then  pegin 

seekread(P_buFFCbuF_nuni],p_rec); 
st atus; =i or esul t ; 
end; 

i+  iinkonlv  then  bytes;=4  else  bytes : =rec _1 en ; 

For  i ; = 1  to  bytes  do 
cegi  n 

it  rec_oFFset=max_rec_si ze 
then  begin 

rec_oFF  set : =0; 

5_rec : =p_rec+l ; 

seekread(P_buFF[buF_num],p_rec); 
status: =i oresui t ; 
end ; 

uuFFer.data[il:=P_buFF[buF_num3.dataCrec_ot'Fset  +  l]; 
rec  oFFset:=rec  oFFsetM: 
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end; 
end ; 

procedure  f wr i te i f i 1 e_num  swhich-fi  le;  rec_num  -.integer; 

var  buffer  :  max_rec;  linkonly  :  boolean); 
var  p_rec,  rec_offset,  bytes, i  :  integer; 

begin 

with  f  i  lesCf  i  le_nuis]  do 
begin 

p_rec: = (rec_num  #  rec_len)  div  max _r ec_si ze; 

rec_of f set : = (rec_num  *  (rec_len  mod  max_rec_si2e) )  mod  max 

size; 

if  p_rec< >1 ast_p_rec  then  seekread (P_buff Cbuf _numl ,p_rec) ; 
if  linkonly  then  bytes:=4  else  by tes : =r ec_l en ; 
for  i:=l  to  bytes  do 
oegi  n 

if  rec_of f set=max_rec_si2e 
then  begin 

seekwrite(P_buffCbuf_numl,p_rec); 

p_rec:=p_rec+l; 

seekread (P_buf f Cbuf _nu»3 ,p_rec ) ; 
rec_of f set : =0; 
end; 

P_buf  f  Cbuf  _nu«3/l.  dataCrec_of  f  set  +  1 1:  =buf  f  er  .datati  3; 
rec_of f sets  =rec_of f set+1; 
end; 

seekwri te (P_buff  Cbuf _n u»3 ,p_rec ) ; 
status:=ioresult; 
last_p_rec:=p_rec; 
end ; 
end; 

{***«*#*************»**««****»**•*»**#***•***»«******«*«*******} 


{*  Procedure  :  StateF  -  Determine  Current  Pointer  Values  *1 
{*  Parameters  :  File_Num,  First,  Free  *1 
{*  Entry  Conditions  :  File_Num  identifies  the  file  to  be  *} 
{*  looked  at.  *> 
{*  Exit  Conditions  :  The  current  values  of  the  heads  of  the  *} 
{*  allocated  and  free  lists  are  assigned  to  First  and  Free.  *} 


{**#»»#**«*********»»»*«****»****»***»#**#******»*»»+*«*»%§*##*} 

procedure  statef (f i 1 e_num: whi chf i 1 e;  var  first, free  :  integer); 
begin 

first:sfilesCfile_numJ. first; 
f  reer  =f  i  lesCf  i  1  e_nu(n] .  ne::t_*ree; 
end; 

{«««•****»*»*«**»***«*•**»«**»****•«**»«**«*****«*»*»*»«**«***«> 
i»  Function  :  RoomF  -  How  mucn  Room  is  Left  in  the  File''  *} 

{  +  Parameters  :  File_Num  *) 

{♦  Result  :  Number  of  Unallocated  Records  in  the  file  *> 

{»***•****«**•****»*«#*•**•*»*#****»«•*«»*****•**«**«»*»****•*+} 


rec 
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function  roomf (f i 1 e_nu»  :  whichfile)  :  integer; 
begin 

rooaf:=files[file_nuiTi3.recs_avail; 
end ; 


{*•«*«»**••*•«*«**»«#«»***««*««••**«*««**«•**«**«*«*«***««•«««*} 


{*  Procedure  :  ResetF  -  Set  pointers  to  the  top  of  the  file  *> 
{*  Paraaeters  :  File_Nu«  *} 
{*  Process  :  The  file  pointers  Next_Read  and  Last_Read  are  *> 
{*  set  to  the  first  allocated  record  in  the  file.  Any  file  *} 
{*  access  after  a  resetf  will  access  the  first  record.  *}■ 


procedure  r esetf ( f i  1 e_nua  :  whichfile); 
begin 

with  f ilestf ile_nu«i]  do 
if  linked 
then  beqin 

last_read: =f irst; 
next_readi=f irst; 
end 

else  next_read: =0; 

end; 


{*  Procedure  :  InitF  -  Initialize  a  slot  in  the  Files  array  *> 
{*  Paraaeters  :  File_Nua,  File_Loc  *> 
{*  Entry  Conditions  ;  Fiie^Nuo  identifies  the  slot  to  be  *> 
{*  initialized,  and  File_Loc  contains  the  initialization  *} 
{*  paraaeters.  *} 
{*  Process  ;  The  File_Nu«  slot  will  be  loaded  with  File_Loc  *} 
{*  and  the  file  will  be  set  to  off_line  status.  Tne  ■file  *> 
{*  will  then  be  reset  to  the  first  record.  *} 


procedure  initf <f i le_nua  :  whichfile;  file_loc  :  where); 
var  l  i  l . . 12; 

d  ;  stringC2]; 
tfs  :  stringC121; 
begin 

with  f i 1 es [ f i 1 e_num 3  do 
begin 

if  f i 1 e_l oc . dr i ve  =  A  then  d:='A:’  else  d:=  E:  ; 

'  Convert  character  array  file_name  into  string  } 
i:  =  l; 

while  file _loc. file _naaetij<>'  do 
begin 

tfs[i3:=file_loc.file_nameCi3: 

l : =i +1 


end; 

tf  sCC3 : =chr  t  i  - 1 ) ; 

Add  drive  designation  to  filename 
fs  :-concat (d,tf s) ; 

linked  :=  f 1 1  el oc . 1 i nked; 
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d i s  k  _i d  :=  f ile_loc.disk_id; 

drive  :=  file_loc. drives 

rec_len  ;=  f i 1 e_l oc . rec_l en; 

recs_avail  :=  fi le_loc . recs_avai 1 ; 
first  :=  file_loc. first; 

next_free  s=  f i 1 e_l oc . f r ee ; 

on_line  :=  false; 

end ; 

r esetf  (til e_num ) ; 
end ; 

{****************************#*********************************} 
{«  Procedure  s  Init_Files  -Onetime  Files  Array  Initialization  *1 
{*  Process  :  Sets  ALL  file  slots  off-line  so  that  a  Close_All  *3 
{*  ooer at i on  (See  Below)  will  not  attempt  to  close  file  slots  *3 
{*  that  were  never  initialized.  Should  only  be  called  once.  *3 
{*******************************#******************************3 
procedure  init_files; 
var  i  :  l..max_open; 
begin 

for  i:=l  to  max_open  do 
with  filesCil  do 
begin 

cn  line:=false; 
f  st03 : =chr (0) ; 
last_p _r  e  c : = - 1 ; 
end; 

for  i:=l  to  max_buffs  do  P_slotCi 1: =0; 
next_l : =1 ; 
end; 

{***«*•*#*****«*•*«•**»***»*»*«**«*»*****«****«***•«*•***••****> 
{*  Procedure  :  CloseF  -  Close  Random  Access  File  *3 

{*  Parameters  :  File_Num  *3 

{*  Process  :  The  file  in  slot  File_Num  is  closed  and  the  On-  *3 
{*  Line  flag  is  reset.  If  already  off-line,  nothing  is  done.  *3 
{***************#***#*#*#**#***•»*******♦*****#«***#**#**** *****3 
procedure  closef (f i le_num  :  whichfile); 
begin 

with  f i 1 estf i le_num3  do 
begin 

if  on_line 
then  begin 

close(P_buff[Duf_nu»], status); 
on_l i ne: =f  ai se; 

1 ast_p_r ec : =- 1 ; 

P_slotlouf _num3:=0;  i  Release  the  Duffer  3 
end ; 

end : 
end ; 

!l*»»**»HH«*H***«***l»»»*#«*»H**»**«m**t***Hm*t»**«***} 
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{*  Procedure  :  OpenF  -  Open  ■file  For  reading  or  writing  *} 
(*  Parameters  :  File_Num  *3 
{*  Process  :  The  -file  in  slot  File_Num  is  brought  on-line.  *3 
{*  If  the  file  is  already  On-Line,  then  nothing  need  be  done.  *1 
{*  If,  however,  the  file  is  off-line,  then  the  diskette  *} 
{*  containing  the  file  must  be  mounted,  the  system  dependent  *> 
{*  association  between  logical  and  physical  files  must  be  made*! 
{*  and  the  file  opened  for  random  access.  *3 


{»***»*«***»•**»**«***#**»*«»«*»**«**********«»*«««*********«*«} 
procedure  openf (f i 1 e_num  :  whichfile); 
var  i  :  integer; 
begin 

with  f ilestf ile_nu«3  do 
if  not  on_line  then 
begin 

switchdisk (drive, disk_id) ; 

C  Look  for  an  available  buffer  } 

buf _num: =0;  i : =1 ; 

repeat 

if  P_s latti 3=0  then  buf _num: =i ; 
i : =i+l ; 

until  ( (i >max_buf f s)  or  (buf _num< >0) ) ; 

{  If  one  isn't  available,  Free  one  up  } 
if  buf _num=0 
then  begin 

closef (P_slottnext_13) : 
buf _num: =next_l ; 
next_l : =next_l+l ; 

if  next_l >max_buf f 5  then  next_l:=l; 
end; 

{  Reserve  the  Buffer  for  this  slot  > 

P_slot[buf _num3;=f ile_num; 

{  Attempt  to  open  the  file  3 
open (P_buf f  Cbuf _numJ ,f s, i ) ; 

{  A  return  code  of  255  means  the  file  doesn't  exist 
so  it  must  be  created.  > 
if  i =255 

then  begin 

{  Create  tne  file  > 
assign ( P_bufflbuf_n urn],  fs); 
rewrite<P_buffIbuf_nuffi3); 
close  <P_buf ft buf _numl , i ) ; 

{  Open  the  newly  created  file  J 
open  (F-_buf  f  [buf  _nural ,  f  s ,  i  ) ; 
end; 

on_l ine: =true; 
end; 

end; 


f*******#*******##***#*#*****#*********#************#****#*****! 
(*  Procedure  ;  Close_All  -  Close  all  files  on  a  drive  *3 
{*  Parameters  :  Drive  *'< 
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{*  Entry  Conditions  :  Drive  indicates  which  drive  is  to  have  *} 
<*  all  of  its  open  files  closed.  *} 

{*  Process  :  This  routine  is  called  prior  to  removal  of  a  disk*} 
{*  from  a  drive  to  ensure  file  integrity.  Each  slot  in  Files*} 
{•  is  checked  to  see  if  the  drive  matches.  If  it  does,  the  *} 
{*  file  is  closed.  *} 

{*****************#***«#****»**********************************} 
procedure  close_all (drive  :  drive_id); 
var  fx  :  whichfile; 
begin 

for  fx:  =  l  to  «ax_open  do 

if  f i 1 estf x 1 . dr  1 ve=dr i ve  then  closef(fx) 

end; 


{***«**«**»****»****«»**•*«»»*****«*»****««*«***«*****»*»«***»«} 


C*  Procedure  :  ReadF  -  Read  the  Next  Record  *} 
{*  Parameters  :  File_Num,  Buffer,  EOLF  *> 
{*  Entry  Conditions  :  File_Num  identifies  to  file  to  read.  *} 
{*  Next_Read  contains  the  record  number  of  the  next  record  to  *} 
{*  be  accessed.  *} 
{*  Exit  Conditions  :  Buffer  contains  the  record  read,  and  *} 
{•  Next_Read  and  Last_Read  will  be  updated  accordingly,  unless*} 
{*  an  end  of  file  condition  was  detected.  In  this  case,  the  *} 
{#  Buffer  will  not  be  modified  and  EOLF  will  be  set.  «} 


I**************************************************************} 

procedure  readf (f ile_num  :  whichfile;  var  buffer  :  max_rec; 
var  eolf  :  boolean); 
var  1  :  integer; 

link  :  links; 
begin 

openf (f i le_num) ; 
with  f ilesCf ile_numl  do 
if  linked 
then  begin 

if  ( <next_read=f irst)  and  (last_read<>f irst) )  or 
(next_r ead=end_of _1 i st ) 
then  eolf:=true 
else  begin 

fread(file_num,next_read,  buffer, false); 
last_read:=next_reao; 
next_read;=buffer. link. next; 

if  last_read=next  read  {  There  is  only  one  recor 
d  } 


then  eolf:=true 
else  eolf:=false; 

end ; 
end 

else  begin 

f  read(file_num, next  _read, buffer, false.1; 
n  ex  t  _r  ead : =n  ex  t  _r  ea  d  + 1 ; 

It'  status  =  0 

then  eolfs=false 
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else  eoH:=true; 

end; 

end;  {  readt  > 

{**#*******#*****#»************#*****«****4********************} 


{*  Procedure  :  WriteF  -  Update  the  Last_Record  accessed  *> 
■1*  Parameters  :  File_Num,  BuHer,  WriteQK  *1 
{*  Entry  Conditions  :  File_Num  identities  the  tile  to  write  *> 
{*  to.  Butter  contains  the  intormation  to  be  written.  Last_  »} 
{*  Read  is  the  record  number  to  be  written  to.  *1 
{*  Exit  Conditions  :  Butt  will  have  been  written  to  the  tile.  «J 
{*  No  re-positioning  will  occur,  so  successive  writes  will  *} 
{*  over-write  the  sane  record.  WriteOK  will  be  TRUE  it  there  *> 
<*  were  no  write  errors.  *} 


{44444444444444444444444444444444444444444444444444444444444444} 

procedure  wr  i  tet ( t i 1 e_num  :  whichtile;  var  butter  :  max_rec; 
var  writeok  :  boolean); 
var  i  :  1 . . max_r ec_si z e; 
begin 

opent (f ile_nua! ; 
with  f i 1 es[ t i 1 e_numl  do 
it  linked 

then  it  1  ast_r ead< >end_ot_l i st 
then  begin 

writeok:=true; 

treadltile_nua,last_read, butter, true); 
twrite(tile_nu»,last_reac,butter,talse>; 
end 

else  writeok:=talse 
else  begin 

twr  i  te (f  i  le_num,next_read , butter, talse); 
next_read: =next_read+l; 
it  status=0 

then  writeok:=true 
else  writeok: =talse; 

end ; 

end;  {  writet  } 

{44444444444444444444444444444444444444444444444444444444444444} 

{*  Function  :  Bel_Rec  -  Delete  a  record  trom  one  ot  tne  lists  *> 

{*  Parameters  :  File_Nua,  Pointer  *} 

{*  Result  :  Record  number  ot  deleted  record  *) 

{*  Entry  Conditions  :  File_Num  indicates  tile  to  use,  Pointer  *1 
is  the  record  number  to  be  deleted.  *> 

{*  Exit  Conditions  :  The  record  will  be  deleted  trom  the  list  «} 

{*  and  pointer  will  be  set  to  tne  the  next  record  in  the  list.*) 

{444444444444444444444444444444444444444444444444 44444444444444} 

tunction  dei_rec (ti le_num  :  whichtile;  var  pointer  :  integer)  :  integer; 
var  link  :  links; 
begi  n 

ooent ( t i 1 e_num) ; 

with  t i 1 est t i 1 e_numl  do 


D-: 


’  *  V  *  »  ^  a  *  •  1  <  '  V  *  »  ■  « 

.%!? u£ i.ati 
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begin 

del _rec : =poi nter ; 

£  Read  the  Next  and  Previous  Record  numbers  ' 
tread (file_n um ,pointer, buffer, true); 
link: =buf f er .link; 

if  1  ink . next=pointer  {  It's  the  last  record  > 
then  poi nter : =end_of _1 i st 
else  begin 

£  Make  the  Next  record  the  new  Current  record  } 
pointer : =1  ink . next; 

{  Delete  the  record  from  the  forward  list  ) 
fread (file_n urn, link. prev, buffer, true); 
buff er. link. next: -link. next; 
f write(file_n urn, link. prev, buffer, true); 

£  Delete  the  record  from  the  backward  list  1 
fread£file_num, link. next, buffer, true); 
buffer. link. prev: =1  ink . ore v; 
fwrite(file_num, link. next, buffer, true); 
end; 

end;  £  with  } 
end;  £  del  rec  } 

{*«**«•* t •*********•«•*****••********•***»«*•**«•#««»•«#*« »#***} 

£*  Procedure  :  Ins_Rec  -  Insert  a  record  into  one  of  the  lists*} 
£*  Parameters  :  File_Num,  New_Rec,  Pointer  *} 

£*  Entry  Conditions  :  File_Num  indicates  which  file  to  use,  *} 
£*  New_Rec  is  the  number  of  the  record  to  be  inserted  into  the*} 
£*  list,  and  Pointer  is  the  number  of  the  record  that  New_Rec  *} 
£*  will  be  inserted  after.  *} 

£*  Exit  Conditions  :  The  links  will  have  been  adjusted  so  that*} 
£*  New_Rec  logically  follows  Pointer  in  the  list.  *} 

(*»******««***«******»****«* »****«**»» ****** t**«*****t*»t*****t} 

procedure  ins_rec (f i le_num  :  whichfile;  new_rec  :  integer; 
pointer  :  integer) ; 
var  link  :  links; 
begin 

openf (f i le_num) ; 
with  f ilesCf ile_num]  do 
begin 

i*  pci nter=end_of _1 i st  £  Empty  List  } 
then  begin 

£  Make  New_Rec  the  only  entry  in  the  list  } 
buffer. link. prev:=new_rec; 
buffer. link. next: =new_rec: 
f wr i te ( f i 1 e_num , new _r ec , buffer, true); 
end 

else  begin 

£  Insert  New_Rec  into  the  forward  list  > 
f read (f i le_num, pointer .buffer , true) ; 
link.prev:=pointer;  link. next : =buf f  er  . link. next; 
buffer. link. next:=new_r sc; 
fwrite(file_num, pointer, buffer, true); 
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[  Insert  New_Rec  into  tne  backward  list  1 
f  re  ad  (file  _n  urn, link. next.au  Her,  true); 
buffer.Iink.prev:=new_rec; 
fwrite(file_num,  link,  next,  buffer,  true); 
t  Make  New_Rec  point  to  its  neighbors  1 
buffer . 1 i nk: =1  ink; 

fwrite(file_n urn, new _rec,  buffer,  true); 
end ; 

end;  C  with  ) 
end;  {  ins_rec  } 


{*********************#***********************+******#********■*3 


{*  Procedure  :  InsertF  -  Insert  a  record  into  the  file  *3 
{*  Parameters  :  File_Num,  Rec_Num,  Buffer  *3 
{*  Entry  Conditions  :  Fi 1 e_Num  indicates  the  file  to  use.  *3 
{*  Buffer  contains  the  information  to  oe  inserted.  Last  _  *3 
{*  Record  is  the  number  of  the  record  which  Buffer  is  to  be  *3 
{*  inserted  after .  *3 
{*  E:;it  Conditions  :  Rec_Num  will  be  the  record  number  which  *3 
I*  was  assigned  to  Buffer  in  the  file.  Once  a  record  is  added*} 
{*  to  the  file,  its  position  will  never  change.  *3 


{********»*************«*****»*****+***********«***************} 

procedure  i nsertf ( f i 1 e_num  :  whichfile;  var  rec_num  :  integer; 
var  buffer  :  max_rec); 

begin 

openf (f i Ie_nu«) ; 

with  f i 1 eslf i le_num]  do 

begin 

if  next_f ree<>end_of _I i st 
then  begin  {  There  IS  a  free  record  3 
recs_avail;=recs_avail-l; 

{  Delete  a  record  from  the  free  list  > 


rec _num:=del_rec (file _n urn, next _free); 

{  find  add  it  to  the  allocated  list  > 
ins_rec(file_n urn, rec_n urn, last _read); 

{  Update  the  record  pointers  3 
last_read:=rec_num; 
if  f irst=end_of _1 ist 

then  begin  {  This  is  the  first  record  3 
next_reao:=last_read: 
first:=last_read; 
end ; 

•i  Write  Buffer  to  the  file  > 
fread(fiie_n urn, last _read, Duffer. true); 
f wr ite  i  file_num, last _read, buffer, false); 
end ; 


end;  C  with  3 
end;  (  insertf  3 

{•«***»*f**#****»*#** ******************** ««»•«****«««»*«*»****«} 

{*  Procedure  :  BeleteF  -  Delete  a  record  from  a  file  *3 

[*  Parameters  :  File  Num  ♦} 
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{*  Entry  Conditions  :  File _Num  is  the  -file  to  be  used.  Last_  *} 
{*  Read  is  the  record  to  be  deleted.  *} 

{*  Exit  Conditions  :  Last_Read  will  point  to  tne  record  foil-  *} 
{*  owing  the  deleted  one.  *> 

r 

\ 

************************#*************************************} 
procedure  del etef ( t i 1 e_num  :  whichfiie); 
var  rec_num  :  integer; 
begin 

with  f i  1  esC f i  1  e_nui8]  do 
begin 

if  f i r st< >end_of _1 i st 

then  begin  {  There  IS  a  record  to  delete  } 
recs_avail:=recs_avail+l; 

{  Delete  the  record  from  the  file  > 

r ec_num : =del _r ec (fi 1 e_num, last_r ead i : 
if  last_read=end_of_list 
then  begin 

first:=end_of_list: 
ne>:t_read:  =end_of  _1  ist; 
end ; 

{  Add  the  deleted  record  to  the  free  list  } 
ins_rec(file_n urn, rec_num, next _tree); 
next _frees=rec_n urn; 
end; 

end; 

end ; 

{***********************♦*********#********#*******************} 


{*  Procedure  :  PosF  -  Position  file  pointers  *} 
{*  Parameters  :  File_Num,  Rec_Nua  *) 
{*  Entry  Conditions  :  File_Num  indicates  the  slot  to  use,  and  *> 
{*  Rec_Num  is  the  record  number  to  which  the  file  pointers  *J 
{*  will  be  set.  *> 


{♦********♦****************♦*♦***♦*************♦***************} 
procedure  posf (f i 1 e_num  :  whichfiie;  rec_num  :  integer); 
begin 

with  f ileslf ile_nunt]  do 
begin 

i+  ( (rec_num=f irst i  and  (not  linked)) 
then  resetf (f i 1 e_num) 
else  next_read: =rec_num; 
end : 
end ; 

{»**  +  *#■»♦*****#****■»•»***************«»**•»****•»**♦***♦*♦«**♦****} 


Procedure  s  CreateF  -  Create  a  new  Index  for  the  file  ♦? 
{*  Parameters  :  File_Num,  How_Many  *} 
{*  Entry  Conditions  :  File_Num  indicates  which  file  to  use,  *} 
I*  and  How_Many  indicates  how  many  records  to  allocate  to  the  *) 
t  *  file.  *  1 


{*  Process  :  The  links  will  be  initialized  as  follows  :  ail  of*; 
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{*  the  records  will  be  assigned  to  the  Free  list,  and  the  *} 

{*  allocated  list  will  be  empty.  None  of  the  information  in  *} 

{*  the  file  will  be  erased,  but  it  will  not  be  accessable.  *) 

{ft**************************#******************************#***} 

procedure  cr eatef (f i 1 e_num  :  whichfile;  how_many  :  integer); 
var  rec  :  integer; 
begin 

openf ( f 1 1 e_num) ; 

with  f i lestf i le_num3  do 

begin 

first:=end_of_list;  next_free:=2; 
recs_avai 1 : =how_many ; 
for  rec:=0  to  how_«any-l  do 
begin 

{  Set  up  the  forward  and  backward  links  } 
buffer. link. next : =r ec  +  1 :  buffer. link. prev: =rec-l ; 

{  Make  the  next  record  of  the  Last  entry  point 
to  the  First  entry  > 

if  buffer. I  ink. next=how_many  then  buf f er . 1 i nk . nex t : =0; 

{  Make  the  previous  record  of  the  First  entry 
point  to  the  Last  entry  -  a  circular  list.  > 
if  buf f er . 1  ink. prev=-l  then  buf fer. 1  ink. prev: =how_many-l ; 
fwrite(file_nu«,rec, buffer, true); 
end; 
end; 

clasef (f i le_num) ; 
end; 

procedure  erasef (f ile_nu«  :  whichfile); 
begin  {  erasef  } 
openf (f i le_nura) ; 

purge(F'_buff[filesCfile_num].buf_num3); 

end; 

modend. 


n_--> 
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*> 


{•**«***•*«**»*•«*«« *<#<< * 

(*  Menu  Module  -  procedures  for  the  maniouiation'orienus 

{*  Menus  may  either  be  read  directly  from  a  file,  or  created 
J  dvna«ically.  in  either  case,  the  format  of  the  menu  in 
,  memory  is  identical.  The  selection  of  an  item  by  the  user 
{*  is  done  by  moving  the  cursor  next  to  the  desired  item  and 
<  pressing  ■^RETURN/.  Help  is  available  for  each  item  by 
).  fflenu  structure  allows  for  more  than  one  *} 

le„  *  the  lteffl  selected  has  sub-selections,  control  *> 
{*  ted1  n°'  rStUrn  t0  the  U5er  until  a  terminal  item  is  selec-*> 

{**************«0*#******#*,*»******»*,*########)f############** 
module  menu_modul e; 
c  on  5 1 

uparrow  =  *5B: 
downarrow  =  *0A; 
cursor  left  =  *18: 
return  =  *0D; 
escape  =  *03; 
null  a  *00; 
huh  =  *3F ; 
max_item  =  20; 
menus  =  2; 

type 

{  Menu  Type  Definitions  } 

menu_string  =  packed  arrayll 
item_ptr  =  A*enujtem; 

{  In  Memory  Menu  structure  } 
menu_item  =  record 

item_text  : 
i tem_code , 
help_index 
next_item, 
previous_ite®, 
next_level  :  item_ptr; 
end; 

t  Menu  File  Record  Structure  } 


{  Define  cursor  motion  commands  } 
fcntl  C> 


I  Maximum  length  of  a  menu  item  > 
{  Menu  file  is  file  number  two  > 


max_i tem]  of  char; 


menu_str  i  ng ; 
integer; 


I  Tex t  User  sees! 
{Code  returned  } 

{  Pointer  } 

{  Pointer  > 

I  Pointer  } 


menu  In  = 


r ecord 

menu_number 
bump_down , 

bump_up 


integer;  {  Menu  ID 


True  i*  item  has 
Sub-selections 


boolean; {  True  if  last  item  of 
current  level  J 
item_te:;t  :  menu_str ing; 
item_code, 

:  integer; 


whi chf i 1 e 
bo;es 


help_inde 
end ; 
i. .  10; 

‘  q  ,  m ,  h  J ; 


C  Cuerv,  Menu,  or  Help  E-o> 


Define  current  menu  environment  1 


D-3S 


Menu  Module 


var  old  :  integers  {  Last  menu  accessed  > 

first_item  :  item_ptr;  {  Top  of  last  menu  3 

top_list  :  item_ptr;  {  Top  of  Current  List  } 

list  :  item_ptr;  {  Current  position  inside  list  J 

count  :  integers  C  Number  of  lines  in  current  level  } 

max_lines  s  integer;  {  Number  of  lines  allowed  in  a  menu  > 

C  See  TermlO  Nodule  for  details  on  the  following  > 

{  Screen  I/O  Declarations  1 

external  procedure  goto_box(box  s  boxes;  x,y  :  integer); 
external  procedure  clear_l inelbox  s  boxes;  y  :  integer); 
external  procedure  clear_box (box  :  boxes); 
external  function  get_count (box  :  boxes)  :  integer; 
external  procedure  writechich  s  char); 
external  function  getkey  :  char; 

C  See  the  LinkFile  Module  for  details  on  the  following  3 

external  procedure  resetf  (f  i  le_num  :  which-fi  le) ; 

external  procedure  readf (f i 1 e_num  :  whichfile;  var  buffer  s  menu_l 

var  eolf  s  boolean ) ; 

{  See  the  Help  Nodule  for  details  on  the  following  > 
external  procedure  help (help_indexs integer ) ; 

{**•****#**«#**•«*****#*««**#*******«*****»*«•**#***•«***»»»•**} 

{*  Procedure  s  Erase_Menu  -  Delete  a  menu  structure  from  Heap  *3 
{*  Parameters  s  First_Itea  *3 

{*  Entry  Conditions  s  First_Item  points  to  the  first  item  of  *3 
{*  the  menu  structure  currently  defined.  *} 

{*  Process  s  Each  item  of  the  current  level  will  be  Disposed.  *3 
{*  If  the  menu  menu  item  has  a  sub-level,  however,  Erase_Menu  *3 
{*  will  be  recursively  called  to  erase  that  level  first.  *3 

{*  This  will  insure  that  the  entire  tree  structure  is  erased.  *} 
{«**»**»*»****§«•*«»•»******»****»***#***** *•*****»*«**#****«*«} 
procedure  er ase_menu (f i r st_i tern  :  item_ptr); 
var  current_item  :  item_ptr; 
begin 

I  Make  sure  there  is  something  to  erase!  > 
if  f i rst_i tem< >ni 1 
then  repeat 

{  Erase  all  lower  levels  of  menu  > 
if  f  ir st_i  tern'",  nex t_l evel<  >ni  1 

then  erase _menu(first_itemA.next_level); 
current_item:=first_item; 

{  Point  to  the  next  item  ) 

f irst_i tern: =first_i temA. next _i tern; 
dispose icurrent_item); 
until  f i rst _i tem=ni 1 ; 

end ; 

{*»»*»**»*****»««t»*«**»«««**««« **#»»**«*#**»*****«** *«*******«} 

{*  Function  :  Read  Menu  -  Read  a  Menu  from  the  Menu  File  *3 
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£*  Parameters  :  Menu_Nuaber  *> 
£*  Result  :  Pointer  to  first  item  of  Menu  *> 
{*  Entry  Conditions  :  Menu_Number  identifies  which  menu  to  *) 
{*  read.  *) 
£»  Exit  Conditions  :  The  eenu  will  have  been  read  from  the  *) 
{*  Menu  File  into  memory.  The  result  of  the  function  is  a  *> 
{*  pointer  to  the  first  item  of  the  menu.  *} 


{a*************************************************************} 

function  read_menu (menu_number  :  integer)  :  item_ptr; 
var  menu_line  :  menu_ln;  £  A  Line  from  the  file  } 
item  :  item_ptr; 
eolf  :  boolean; 

{«*****************«*****»****•* ******«******#****«********«*«*} 


£*  Procedure  s  Read_Level  -  Read  all  aenu  items  at  current  *)■ 
C*  1 evel  i nto  memory  *> 
£*  Parameters  :  Last_Item,  Last_Line  *} 
£*  Blobal  Variables  :  EOLF  *) 
£*  Entry  Conditions  :  Last_Item  points  to  an  allocated  but  *} 
£*  not  yet  initialized  aenu  item.  Last_Line  is  the  last  item  *} 
£*  read  from  the  file.  EOLF  is  the  end  of  file  indicator.  *> 
£*  Process  :  First,  the  values  in  Last_Line  are  assigned  to  *> 
£*  Last_Item.  Then,  a  test  is  made  to  see  if  there  are  sub-  *J 
£*  items  under  this  one.  If  there  are,  then  Read_Level  is  *} 
£*  called  recursively  to  read  it.  Finally,  a  test  is  made  to  *> 
(*  see  if  this  item  is  the  last  item  at  this  level.  If  it  is,*> 
£ *  then  control  will  return  to  the  caller.  *} 


procedure  read_level (last_itea  :  itea_ptr; 

last_line  :  menu_ln); 
var  level, item  i  item_ptr; 
menu_line  :  aenu_ln; 
done  :  boolean; 

begin 

done:=f alse; 
repeat 

£  Assign  File  values  to  Memory  Menu  } 
last_iteaA.item_text:=last_line.item_text; 

1 ast _i  t em ",  i  tem_c odes  =  last_line.item_c ode; 
last _itemA. help _index:=last_line. help _index; 
if  1 ast_l i ne. bump_down 

then  begin  £  There  ARE  sub-items  } 

£  Allocate  a  new  item  and  point  to  it  > 
new  ( 1  evel ) ;  1  as t_i tem'. next _1 evel :  =1  evel ; 
£  Make  it  the  first  item  of  the  next  level) 
level". previous_item:=nil; 

£  Pre-read  the  Menu  File  ) 
r  eadt  (menus .menu _l  l  ne ,  eol  f  )  ; 

£  Read  in  the  rest  of  this  level  1 
read _1 evel (level , menu _1 ine) ; 
end 

else  last  item'. next  level:=ml; 
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it  (eolf  or  1  ast _1 1 ne . bump_up ) 

tnen  beam  £  Done  with  this  level  > 
last_item''.ne>:t_item:=nil; 
done: =true 
end 

else  begin 

{  Read  in  the  next  item  tor  this  level  > 
r  eadf (menus, menu_line,eolf); 

\  Allocate  storage  ana  point  to  it  > 
new (i tem) ;  last_itemA.next_item:=item; 
item'-'. previous  _item:=last_iteB; 

{  Set  up  tor  next  iteration  1 

last_item:=item;  last_line:=menu_line 
end ; 

until  done; 
end ; 

begin  {  read_menu  } 
resets (menus) ; 

{  First,  find  the  appropriate  Menu  in  the  Menu  File  ) 
repeat 

readf( menus, menu _line,eo If); 
until  menu_l in e. men u_n umber =«enu_n umber ; 

{  Allocate  storage  for  and  point  to  the  first  item  } 
new (item) ;  i  temA. pr evi ous_l evel : =ni 1 ; 
read_menu:=ite»; 

{  Read  in  the  entire  menu  structure  ) 
read_level ( i  tea , *enu_l i ne) ; 

end ; 

C**4**************»******************»*»*««**»»*****#*#*******t} 


{*  Function  :  Select_Menu_Item  *> 
{*  Parameters  :  Menu_Index  *} 
{*  Result  :  Item_Code  of  the  selected  terminal  item.  */ 
{*  Entry  Conditions  :  Menu_Index  points  to  the  first  item  of  *} 
{*  a  Menu  currently  in  memory.  *> 
{*  Exit  Conditions  :  The  user  will  have  selected  one  of  the  *> 


£*  terminal  menu  items  (an  item  with  no  sub-items).  Its  code  *> 

{*  will  be  returned  as  the  value  of  the  function.  If  a  non-  *} 

{*  terminal  item  is  selected,  then  a  recursive  call  to  this  *3- 

{*  function  will  be  made,  until  a  terminal  item  is  selected.  *> 

£***#****##*******♦****#*****+-*******************#**#***«******} 
function  select_menu_item(menu_index  :  item_ptr)  :  integer: 
var  index  :  item_ptr:  £  Current  Menu  Item  3 

character  :  char;  £  Keyboard  entrv  Character  3 

selection  :  integer;  £  Selection  code  3- 

1  :  integer;  £  Current  line  number  in  menu  box 

{*******#*»*********#*****************♦*********♦#***#****»**#♦ 3 
£»  Procedure  :  Menu_Display  -  Display  all  Menu  choices  at  the  ♦} 

£  *  current  level  *3 

Process  :  The  menu  box  area  o f  the  screen  is  cleared,  ana  *3 
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{*  the  choices  available  at  the  current  level  of  the  menu  are  *) 

{•  displayed  on  sequential  lines  of  the  screen.  The  cursor  is*} 

{*  positioned  to  the  left  of  the  first  item.  *’ 

{»»«*»»»**#***** t******************************** **************} 

procedure  ■enu_display; 
var  index  :  item_ptr; 

1  :  integer; 

begin 

clear  bcx(«); 

1 : =0;  ~ 

index:=menu_index; 

repeat 

C  Indent  each  item  to  leave  room  for  the  cursor  } 
goto_box <m,2,l > ; 
write(indexA.item_text); 

{  Point  to  the  next  item  at  this  level  } 

1:=1+1;  i ndex : =i ndex A. nex t_i tem; 
until  index=nil; 
goto _box(m, 0,0); 

writechi  •' ' ) ;  wri  tech  (chr  (cursor  1  eft )) ; 
end ; 

begin  {  Select  Menu  Item  > 
menu_display; 
index:=aenu  index; 

1 :  =0; 
repeat 

character : =getkey; 
case  ord (character )  of 

up arrow  :  if  i  ndex  A.  previ  ous_i  temOni  1 
then  begin 

writech('  ');  wri tech (chr (cursorl eft )) ; 
1 s*l  —  l;  goto_box (m,0,l ) ; 
writech('*');  writech(chr(cursorleft)); 
index :  =  indexA. previ ous_i ten 
end; 

downarrow  :  if  indexA.next_item<>ni I 
then  begin 

wri tech (  '  ');writechichr(cursorleft)); 
1:  =  1*1;  qoto_box (»,0,1 1 ; 
wri tech ('»') ?  writech(chr(cursorleft)); 
index : =i ndex next _i  tem 
end; 

huh  :  begin 

help(mdex'.help_index); 
menu_di spl av; 

writech(  1 ;  wr i tech ( chr ( cur sor 1 ef t )) ; 
goto_box  un.B, 1 > ; 

writech('*');  writech(chr(cursorleft);; 
end; 

return  :  if  i ndex A . next _1 evel i 1 

then  select  menu  item: =indexA. item  code 
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else  begin  C  recursive  call  3 

selection:  =sel ect_menu_i tem  ( index-' 

vel ) ; 

if  selection=0 
then  begin 

{  Return  from  lower  level  with 
no  selection,  so  redisplay 
current  level  } 
char acter : =chr  (nul 1 ) ; 
menu_di spl ay ; 
index : =menu_i ndex 
end 

else  sel ect_menu_i tem: =sel ect 1  on; 
end; 

escape  :  sel ect_menu_i tea: =8; 
end;  <  case  3 

until  ( (character=chr (return) )  or  (character=chr  (escape) ) ) 
cl ear_box (m) ; 
end;  {  select_menu_ite»  3 

{♦a*****************#***#**************************************} 


{♦  Function  :  Menu  -  Make  a  selection  from  a  File  Menu  *3 
{*  Parameters  :  Current  *3 
{#  61obal  Variables  :  Old,  First_Item  *3 
{*  Result  :  Item_Cade  of  selected  terminal  item.  *3 
{*  Entry  Conditions  s  Current  is  the  number  of  the  menu  to  be  *1 
{•  made  the  new  current  menu.  Old  is  the  number  of  the  last  *} 
{*  menu  accessed,  and  First_Item  points  to  the  old  menu.  *3 
{*  Exit  Conditions  :  Old  is  updated  to  Current,  and  the  *3 
{*  function  returns  the  selected  code.  *3 


{*»*»«•*«*•**»#«»#*•»**»**»•*»**••*«********•*«*«•*•***«*******} 
function  menu(current  :  integer)  :  integer; 
begin 

if  old  <>  current 

then  begin  {  A  new  menu  must  be  read  from  the  file  3 
er ase_menu (f ir st_i tem) ; 
f irst_i tem: =read_menu( current > ; 
old:=current; 
end; 

menu: =select_«enu_i tern (f  i rst_i tem) ; 
end; 

#§*«**»*#*«*««#•* »«*»»*«*#«*•«**«******«**#***##•#****} 
C»  Procedure  :  Init_List  -  Initialize  a  Memory  List  to  empty  *3 

[ *  Process  :  A  list  is  to  be  built  in  memory.  It  must  first  *3 

{♦  be  initialized.  Any  old  list  will  be  erased,  and  the  size  *3 

<*  of  the  list  displayed  will  be  set  to  fill  the  menu-box.  *3 

{••*»»**##t**»**tt*»f*«»*»»*«****»*>****#***«*##****#*****»***«} 

procedure  init_list; 
begin 

erase_menu (top_l ist) ; 

top_l l st : =ni 1 ;  list: =n i 1 ;  count : =0: 
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'  Get  the  size  of  the  Menu  Box  > 
ma,;  _1 1  nes:  =  get_count  (m)  ; 
end ; 


{*****•****»**»*******»•*«******»**•*«*»*«******•*«**********»»} 


C*  Procedure  :  Build_List  -  Add  an  item  to  the  Memory  List  *1 
{*  Parameters  s  Item_Text,  Item_Code  *} 
{#  Global  Variables  :  Top_List,  List,  Count,  Max_Lines  *> 
{*  Entry  Conditions  s  Item_Text  and  corresponding  Item_Code  *} 
{*  are  to  be  added  to  the  list  in  memory.  *} 
{*  Process  :  The  item  will  be  added  to  the  list.  IP  the  »> 
{*  number  of  items  in  the  current  level  exceeds  the  capacity  *1 
{*  of  the  menu-box,  then  a  new  level  will  be  created.  Count  *} 
{*  maiantains  the  number  of  items  in  the  current  level,  and  *J 
{*  Max_Lines  is  the  size  of  the  menu-box.  Both  are  *> 
{*  initialized  by  Init_Lisc.  Tne  first  call  to  tms  procedure  *1 
{*  will  define  Top_List,  and  position  for  subsequent  calls  *> 
{*  will  be  maintained  by  List.  *} 


{***************************•**■»***#****************«***********} 
procedure  bui 1 d_l i st ( i tem_tex t : menu_str i ng ;  i tem_code: 1 nteger ) ; 
var  entry  :  item_ptr; 

c  :  integer; 

begin 

new (entry ) ; 
if  listOnil 

then  begin  <  This  isn't  the  first  element  of  the  list  > 

1 i st '. next_i tern: =entry ; 
entry'. previous_item:=list; 
end 

else  begin  {  This  IS  the  first  element  of  the  list  1 
entry' ,previous_i tern:  =ni  1 ; 
top_l i st : =entry ; 
end ; 

if  count2 <max_I ines-l ) 

then  begin  {  Start  a  new  level  of  menu  ) 
entry'. next _i terns  =ni 1 ; 
new (list); 

list '.previous_i tern :=nil; 

1 istA. next_level : =ni 1 ; 
entry  . next _1 evel : *1 i st; 
count : =8; 

entry',  i  tem_text:*'Rest  of  the  list 
entry'. help_i ndex : =1 7; 

end 

else  begin  {  Add  to  present  level  of  menu  1 
entry'. next _1 eve 1 : -ni 1 ; 

1 l st: =entr y; 


end ; 

list". item  _text:  =  iten>_t  ext; 
1 ist'. i tem_code: =i tem_code; 
1 i st'. hel p_i ndex : =ie; 
list'. next  item:=nil;  C  In 


case  this  is  the  last  one 
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count ! =count+l ; 
end;  {  build  list  } 

{♦♦♦♦im*###*##***#*****************#***#*##****#******##*#**###} 


{*  Function  :  Select_List  -  Select  an  item  from  Memory  List  *> 
{*  Global  Variables  :  Top_List  *} 
{*  Result  :  Item_Code  of  selected  item.  *} 
{*  Process  :  After  a  list  hes  been  built  in  memory  through  *} 
(*  calls  to  Build_List,  an  item  may  be  selected  with  this  *} 


{*  function.  Since  the  Structure  of  both  lists  and  menus  is  *} 
{*  identical,  Select_Menu_Item  is  used  to  do  the  actual  work.  *} 

{«*****#**»**********ft*****»*****************44*«**#*»***#*«***} 

function  select_list  :  integer; 
begin 

select _list:=select_menu_item(t op _1 i s t ) ; 
end : 

{lHHHHUHUHHHHHHHHHHf****#***#************#*********#************} 


{*  Procedure  :  Init_Menu  -  Initialize  Global  Variables  *} 
{*  Global  Variables  :  Old,  First_Ite«,  Top_List  *} 
{*  Process  :  Prior  to  the  first  use  of  either  a  menu  or  a  «} 
{*  list,  the  pointers  must  be  initialized.  *} 


I*****************************************************#********} 
procedure  init_menu; 
begin 

old:=0;  f irst_item:=ni 1 ;  top_l ist : =ni 1 ; 
end; 

modend. 
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I******************************************#*******************} 

{*  Help  Module  -  Provides  information  to  the  user  about  the  *} 

{*  system.  The  help  messages  are  stored  in  the  Help  File,  and*} 

{*  are  indexed.  Each  query  or  menu  item  has  been  assigned  a  *) 

{*  help  index,  which  is  used  to  look  up  the  associated  help  *) 

{*  information.  *> 

I**************************************************************} 
{fS+1 

module  helper; 

const  max_help  »  33;  '  Maximum  length  of  a  help  message  line) 

helps  =1;  {  Help  file  is  file  number  one  } 

type  help_msg  =  record 

help_index  :  integer: 

line  :  packed  arraytl . . max_hslp]  of  char; 
end; 

whichf i le  =  1 . . 10; 

boxes  =  iq ,  m ,  h )  ; 

{  see  the  TermlO  Module  for  details  on  the  following  } 

{  Screen  I/O  Declarations  } 

external  procedure  clear_line(box  :  boxes;  y  s  integer); 
external  procedure  waitkey; 

{  5ee  the  LinkFile  Module  for  details  on  the  following  } 

{  File  Access  Declarations  ) 

external  procedure  readf ( f i 1 e_nuo  :  whichfile;  var  buffer  :  help_msg 

var  eolf  :  boolean); 

external  procedure  resetf (f ile_num  :  whichfile); 

I*********************************#****************************} 

{*  Procedure  :  Help  *> 

{*  Parameter s  :  Help _Index  *> 

{*  Entry  Conditions  :  Help_Index  identifies  which  help  message*} 

{*  to  look  up.  *> 

{*  Process  :  The  Help  File  is  scanned  until  a  matching  index  *} 

{*  is  found.  This  line  and  all  subsequent  lines  are  displayed*} 

{*  in  the  help-box  area  of  the  screen,  until  a  line  with  a  *} 

{*  different  index  is  found.  *} 

[**************************************************«***********} 
procedure  hel p (hel p_i ndex  :  integer): 
var  mess  :  help_msg; 
eel*  :  boolean; 

!  :  integer; 

begin 

r esetf (hei ps  )  ; 

{  Find  the  first  line  of  the  help  message,  if  there  is  one.} 
reoeat 

readf (helps. mess, eolf); 
until  (mess, help  index=help  index)  or  eolf; 

1 :  =0; 

Display  all  lines  with  matching  index  numbers  > 
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while  ((not  eolf )  and  (mess.h9lp_inde:<  =  helo_index) )  do 
begin 

cl  ear _1 ine (h  ,  1 ) ; 
write (mess. 1 1 ne) ;  1:=1+1; 
readf(helps,mess,eolf); 
end; 

cl  ear _1 i ne (h , 1 ) ; 

write('End  of  Help  -  Press  any  Key.’); 
wait  key; 
end; 


modend . 
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{•••••*********•*•***#**#«***«««*«*******«******»********«••»**} 
{*  Users  Module  -  Maintains  the  List  of  Users  tor  the  Command  *3 
{*  Processor  *3 

{**#*#*##***##*********************♦******♦##** ****************  J 
•odule  user_file; 

const  max_str  =  30;  {  Maximum  length  of  a  string  3 

user_file  =  3; 

type 

char_stnng  =  packed  arr ay C 1 .  •  «ax_str ]  of  char; 
whichf i 1 e  =  1 . . 10; 


links 


record 
next , 
pr ev  : 
end ; 


integer ; 


List  o-f  Users  File  Type  Definitions  > 


{  All  the  information  maintained  about  a  user 
user_entry  =  record 
1  ink 
name 
i  d 

password 
end; 


links; 

cnar_str ing; 

integer; 

char_string; 


tjj 


{  Global  Variable  initialized  by  Read_Args  routine. 

the  Argument  Module  for  details.  > 
var  next_user  :  external  integer; 


See 


{  File  Access  Declarations  3 

{  See  the  LinkFile  Module  for  details  on  the  following  ) 
external  procedure  readf (f i le_num  :  whichfile;  var  Duffer 

var  eolf  :  boolean); 

external  procedure  insertf <f ile_num  :  whichfile  ;  var  rec_num 

var  buffer  :  user_entry); 
external  procedure  resetf (f i le_num  :  whichfile); 
external  function  roomf (f i 1 e_num  :  whichfile)  :  integer; 


user_entry ; 
integer ; 


{»*********»**»»***#***•»*•»******»*****«•*******«**»**•*****»*} 


. 

*  V-*  * 


{*  Function  :  Lookup 

{*  Parameters  :  User_Name,  Password,  ID 


*} 

*} 


{*  Entry  Conditions  :  User_Name  contains  the  name  of  the  user  *3 
{*  as  he  typed  it  in.  *3 

{*  Process  :  User_Name  is  looked  up  in  the  User_File  *3 

C*  E.-.it  Conditions  :  If  the  name  is  found,  then  Password  and  *3 
C*  ID  are  set  to  the  matching  entries  in  the  file,  and  the  *3 
{*  function  returns  a  TRUE  value.  If  the  name  isn  t  in  the  *3 
{*  list,  the  function  returns  a  FALSE  value.  *3 

{*#**#*****♦**#*********#■******##*****#**************#*******«*) 
function  1 ookup (user _name  :  char_strinq; 

var  password  s  char_string; 
var  id  :  integer)  :  boolean: 

var  user_info  :  user_entry;  {  File  entrv  for  comparison  3 
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eoH  :  boolean;  l  End  of  List  of  Users  > 

begin 

lookup:=false;  C  Haven't  found  him  yet  3 

r esetf iuser_f i 1 e ) ; 

repeat 

readf(user_f ile, user _info,eolf); 
if  user_i nf o, name=user _name 

then  begin  {  This  user  IS  present  in  the  file  } 
passwords =user_info. password ; 
id: =user_info. id; 
lookup:=true  {  We  found  him  3 
end; 

until  (eolf  or  (user_i  nf  o.  name=user_naine)  )  ; 
end ; 

{*******************■***************#***************************} 
{*  Function  :  NewUser OK  *3 

{*  Entry  Conditions  :  An  Inquiry  is  being  made  to  see  if  there*} 
{*  is  room  in  the  List  of  Users  for  another  entry.  *> 

{*  Process  :  The  RooaF  function  is  called  to  see  if  there  is  *} 
{*  any  space  available.  *3 

{*  Exit  Conditions  :  If  there  is  at  least  one  entry  available,*) 
{*  then  the  function  will  return  a  TRUE  value.  Otherwise,  the*} 
{*  result  will  be  FALSE.  *) 

{*****♦♦* ********************************************** ****•**•> 
function  newuserok  :  boolean; 
begin 

if  roomf (user_f ile) >0 
then  newuserok : =true 
else  newuserok : =fal se; 
end ; 

{*************************#* ***##******************************} 


{*  Function  :  AddJJser  *3 

{*  Parameters  :  Name,  Password  *3 

{*  Global  Variables  :  Next_User  *3 

{*  Result  :  User_ID  *3 

{*  Entry  Conditions  :  Name  and  Password  are  to  be  added  to  the*} 

{*  List  of  Users.  *3 

{*  Process  :  The  Next_User  id  will  be  assigned  to  this  Name  *3 

{*  Password  pair  and  will  be  inserted  into  the  List  of  Users.  *3 

{*  Ne:;t_User  will  be  incremented.  *3 

{*  Exit  Conditions  :  The  function  result  will  be  the  id  *3 

{*  assigned  to  the  user.  *3 

function  add_user (name, password  !  char_string)  :  integer; 
var  user_info  :  user_entry;  (  File  entry  buffer  3 

r  :  integer;  {  The  physical  record  number  of 

the  new  entry  -  not  used  ner?  J 

begin  C  add  user  3 
resetf (user_f ile); 

I  Set  up  the  Buffer  3 
user_info.name:=name; 
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{**#******#***#******#*****#*******#***1HHHHHHHHHHHHHS«*#*#*****} 

{*  Projects  Module  -  Maintains  the  List  of  Projects  fGr  the  *} 

{*  Command  Processor  *} 

{*****♦********♦**********************************♦*****#*♦****} 

module  proj_list; 

const  max_str  =  30;  C  Maximum  length  of  a  string  } 

max_item  =  20;  {  Maximum  length  of  a  menu  item  > 

{  See  File  Access  Module  for  description  of  Files  Array  } 
projects  =4;  {  Slot  number  in  Files  Array  for  Projects! 

g_dir  =7;  {  Slot  number  of  Global  Directory  } 

type  char_string  =  packed  arr ay C 1 . . ma:;_str  3  of  char; 
menu_string  =  packed  arraytl. .«ax_item]  of  char: 
whichf i 1 e  =  1 . . 10; 
links  =  record 

next, 

pres'  :  integer; 
end; 

{  List  of  Projects  Type  Definitions  } 

state  =  (sel ect_board ,  sel ect_component ,  sel_aone, 

connections,  cann_done,  placement,  place_aone, 
routing,  route_done); 
proj_entry  =  record 

link  :  links; 

id  :  integer;  {  Project  ID  number  } 

name  :  char_string;  {  Project  Name  ) 

desc  :  char_string;  {  Project  Description  } 

completion  :  state;  {  State  of  Completion  } 

user  :  integer;  {  Owner  ID  number  } 

end; 

{  Global  Variable  -  Initialized  by  Read_Args  routine  in 
Argument  Module  > 

var  next_oroj  :  external  integer;  {  Next  project  id  to  be  assigned.  } 


{  File  Access  Declarations  ) 


{  See  File  Access  Module  for  details  on  the  following  } 

external  procedure  readf (f ile_num  :  whichfile;  var  buffer  :  proj_entry; 

var  eolf  :  boolean); 

external  procedure  wr i tef (f i 1 e_num  :  whichfile;  var  buffer  :  prcj_entry; 

var  writeok  :  boolean); 

external  procedure  insertf (f i 1 e_num  :  whichfile;  var  rec_num  :  integer; 

var  oufter  :  proj_entry); 
external  orocedure  del etef (f i 1 e_num  :  whichfile;; 
external  procedure  resetf (f i le_num  :  whichfile); 


external  function  roomf (f l 1 e_num  :  whichfile)  :  integer; 


i  List  building  declarations  } 

{  See  Menu  Module  for  details  on  the  following  ; 
external  procedure  ini t_I i st ; 

external  procedure  build _list(item_t ex t:menu_string:ite*_code:ir.te3er': 
external  function  select_list  :  inteaer; 


Projects  Module 


{  Returns  number  of  Files  Per  Project  -  See  Global  Directory  > 
external  function  tpp  :  integer; 

{*«*«*««*«**#«*********»***»»**»***»***»»********»************•} 
{*  Function  :  New_P_0K  -  Is  there  room  for  another  project?  *> 

{*  Exit  Conditions  :  If  there  is  room  in  both  the  Global  *} 

{*  Directory  and  the  List  of  Projects,  then  New_F'_0K  will  be  *} 

{*  TRUE.  Otherwise,  FALSE  will  be  returned.  *} 

I************************************************************** ] 
function  new_p_ok  :  boolean; 
begin 

if  ( (roomf (pro jects) >=l !  and  (roomf (g_dir ) >=f p o > ) 
then  new_p_ok : =true 
else  new_p_ok : =f al se; 
end; 

{*«**•****#****»«*******»#*•*****•******«*************•********} 


(*  Procedure  :  Update_Pr o j _Li st  -  Update  List  of  Projects  *> 
{*  Parameters  :  ID,  Completion  *} 
{»  Entry  Conditions  ;  ID  identifies  the  project  in  the  List  *> 
{*  of  Projects  to  be  updated,  and  Completion  is  the  new  value  *) 
{*  for  the  state  of  the  project.  *} 
I*  Process  :  The  List  of  Projects  will  be  scanned  for  project  *} 
{»  ID.  If  found,  its  state  of  completion  will  be  updated  to  *} 
{*  Completion.  Nothing  is  done  if  ID  is  not  found.  *} 


{*•***»»«***«**«**»*»*»**»*• #*#***« ft*************** ************} 

procedure  update  jor o j_l ist (id  :  integer;  completion  :  state); 
var  updated,  eolf,  writeok  :  boolean; 

proj_data  :  proj_entry; 
begin 

resetf (projects);  updated: =false; 
repeat 

readf (projects, proj_data, eolf); 
if  (pro j_data. i d=i d ) 

then  begin  {  We  found  it!  } 

proj_data.completion:=completion; 
writef (pro jects , or oj_dat a .writeok) ; 
updated : =true; 
end ; 

until  eolf  or  updatec; 
end; 


{*  Function  :  Sei ect_Project  *1 
{*  Parameters  :  User  *} 
{*  Result  :  One  of  the  user's  oroject  IDs  *} 
{*  Entry  Conditions  :  User  identities  whose  projects  to  Ido).  *} 
{*  up  m  tne  List  of  Projects.  ♦> 
{*  Process  :  All  of  User's  projects  are  looked  up  in  the  List  «: 
{»  of  Projects  and  the  following  information  is  inserted  in tc  ♦  1 
:  *  a  list  -  oroject  Name  anc  ID  number .  The  N  a  lies  Kill  ce  »; 


yv 
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{*  displayed  in  a  menu  and  the  user  will  oe  asked  tc  select  *1 
{*  one.  »' 

{*  Ek i t  Conditions  :  The  ID  number  corresponding  to  the  users*! 
{*  selection  will  be  the  function  result.  If  the  User  has  no  *1 
I*  projects  in  the  List  of  Projects,  then  a  value  of  Zero  will*} 
{*  be  returned .  *} 

{«******••*****************************************************} 
function  select_pro ject (user  :  integer)  :  integer; 
var  item_text  :  menu_string; 

c  :  1 . . »ax_i tea; 
proj_data  :  proj_entry; 
gotone,  eolf  :  boolean; 
begin 

gotone: =f alse; 

resetf (projects) ;  init_list; 
repeat 

readf (projects, proj_data, eolf); 

if  ( (pro j_data. user =user )  and  (not  eolf)) 

then  beam 

gotone: =true; 

for  c:=l  to  »ax_itee  do 

iteni_textCc]:=proj_data.naflietc]; 
build_list (ite«_text,proj_data. id) ; 
end; 

until  eolf; 
if  gotone 

then  select_pro ject: =select_l ist 
else  sel ect_project : =0; 
end ; 

{**************************************************************} 
{*  Procedure  :  New_Project  -  Add  a  new  project  to  the  List  *) 
{*  Parameters  :  Nane,  Desc,  User,  ID  *} 

{*  Global  Variables  :  Next_F'roj  *)• 

{*  Entry  Conditions  :  Name,  Desc (ription)  ,  and  User  define  the*} 
{*  new  project  to  be  added  to  the  List  of  Projects,  and  Next_  *} 
{*  Proj  is  the  ID  to  be  assigned  to  this  project.  *} 

{*  Exit  Conditions  :  ID  is  the  Project  ID  assigned  to  the  *} 
{♦project.  *! 


procedure  new_project (var  nane,  desc  :  cnar_string; 

user  :  integer;  var  id  :  integer); 
var  cro;_data  :  proj_entry; 

r  :  integer; 
begin 

resetf (projects) ; 

{  Load  the  Buffer  t 
croj_data.name:=name; 
oroj_data.desc:=desc; 
proj_data.user:=user; 
pro j_data. com pleti on :=select_board; 

{  Use  the  na;>t  sequential  ID  and  update  it  } 
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proj_data.id:=next_proj:  next_proj:=next_proj+l; 

■C  Return  the  new  ID  the  the  Caller  > 
id: =proj_data. id: 
insert* (projects, r,proj_data); 
end;  C  new  project  } 

{ 4  ******** *4 *****««*«*•*« ********** *************** ****** **«***•} 

{*  Procedure  :  Free_Project  -  Remove  a  project  From  the  List  *3 
{*  Parameters  :  Project_ID  *> 

{*  Entry  Conditions  :  Project_ID  identifies  the  project  to  be  *} 
{*  removed  from  the  List  of  Projects.  *3 

{*  Process  :  List  of  Projects  will  be  scanned  for  Froject_ID.  *3 
{*  If  it  is  found,  it  will  be  deleted.  Nothing  happens  if  the*} 
{*  project  isn't  in  the  list.  *3 

{**************** a*******#*************************************} 
procedure  f  ree_oro  ject  (projected  :  integers; 
var  eolf  :  boolean; 

proj_data  :  proj_entry; 
begin 

if  project_id< >0 
then  begin 

resetf (projects) ; 
repeat 

readf (projects, proj.dat a, eolf); 
if  proj_data.id=project_id 
then  deletef (projects) ; 
until  (eolf  or  (proj_data. id=project_id) ) ; 
end; 

end ; 

{***•••*•***•**•*•****«****»*««*** *****************************} 
{*  Function  :  Get_State  -  What  is  the  state  of  the  Project?  *> 
{*  Parameters  :  I D  *} 

(*  Result  :  The  current  State  of  Completion  of  the  project  *} 
{*  Entry  Conditions  :  ID  identifies  which  project  to  look  up  *} 
{***«»•***»»******« **************************** ****************} 
function  get_state(id  :  integer)  :  state; 
var  eolf  :  boolean; 

proj_data  :  proj_entry; 
begin 

resetf (projects) ; 
repeat 

readf( projects, proj.dat a, eolf): 
if  (proJ_data.id=id) 
then  get _state:=proj_dsta. completion ; 
until  (eolf  or  (proj_data. id=id) ) ; 
end; 


I**********************************#******************#********} 
{*  Procedure  :  6et_Name  -  What  is  the  name  of  the  project?  *3 
{*  Parameters:  ID,  Name  *3 
•(*  Entr\  Conditions  :  ID  identifies  the  project  to  lool.  uc  *3 
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{*  Exit  Conditions  :  Na«e  will  contain  the  name  o*  tne  project*} 
{*  it  ID  exists.  If  ID  isn't  in  the  List  ot  Projects,  name  *} 
{*  will  be  set  to  all  spaces.  *} 

{ft******************#*******************************************} 

procedure  get_na«ie(id  :  integer;  var  name  :  char_string) ; 
var  eol*  :  boolean; 

proj_data  :  proj_entry; 
begin 

name:=' 

reset* (projects) ; 
repeat 

read* (projects, proj_d at  a, eo It); 
it  ( (pro j_data. id=id )  and  (not  eol*!) 
then  na»e:=proj_data.na*e; 
until  (eol*  or  (pro j_data. 1 d=i d ) >  ; 
end; 

modend . 
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;**************************************************************} 
{*  Argument  Module  -  Responsible  for  passing  arguments  between*; 
{*  the  Command  Processor  and  the  other  layout  modules.  *1 

{»***********•*****•*»»»»*»•»»•*•*•*•»*««*****»******»****•»***} 
module  arguments; 
const  args  *  5; 
g_dir  =  7; 

type 

wf  =  1. .  105 

'  Argument  File  Definitions  } 

state  =  (sel ect_board ,  sel ect_component ,  sel_done, 

connections,  conn_done,  placement,  olace_done, 
routing,  route_done); 

modules  =  <cp,  selecter,  connecter,  placer,  router,  osi; 

{  Arg_Header  contains  information  the  CP  needs  to  know.  } 
arg_header  =  record 

projected,  I  Current  Project  J 

user_id,  {  Current  User  } 

error_code  :  integer;  {  Current  Error  } 
completion  :  state;  {  State  of  Completion  } 
last_mod  :  modules; {  Last  module  executed  } 
end; 

{  Saved_State  keeps  track  of  the  next  IDs  to  assign  } 
saved_state  *  record 

next_id, 
next_user , 

next_proj  :  integer; 
proj_info  :  arg_header; 
ends 

filespec  =  arraytl,.121  of  char; 
dri ve_id  =  (A,  B)  ; 
link  =  record 

next , 

prev  :  integer; 
end; 

where  =  record 

linked  :  boolean; 

file_name  s  filespec; 

drive  :  drive_id; 

disk  _i d , 
recs_avai 1 , 
rec_l en , 
f irst, 

free  :  integer; 

end; 

arg_en tr y  =  record 

links  :  link; 
case  boolean  of 
fal se: (header  :  saved_state) : 
t rue: (f i 1 e_entr v  :  record 

file  nun  :  w  * ; 
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file_loc  :  where: 
end ) ; 

end ; 

<  Global  Variables  > 

var  next_proj,  next_user,  next_id  :  integer; 

{  See  the  LinkFile  Module  for  details  on  the  following  > 

external  procedure  read*  If  :  wf;  var  buf f er :  arg_entry ;  var  eolf :boolean) 

• 

9 

external  procedure  writefif  s  wf;  var  buf f er : ar g_entr y;  var  writeok:bool 
ean  ) ; 

external  procedure  resetf(f  :  wf); 

external  procedure  insertf  (f :  wf ;  var  rec_nu(n:  integer ;  var  buffer  :  arg_e 
n  t  r  y ) ; 

external  procedure  deletef(f  :  wf); 


{  See  the  Global  Directory  Module  for  details  or  the  following  1 
external  procedure  update_f 1 1 e (*  :  nodules;  project  :  integer; 

file_num  :  wf;  file_loc  :  where); 
external  function  get_loc<»  s  nodules;  project  :  integer; 

var  file_num  :  wf ;  var  file_loc  :  where) 


lean; 


boo 


{»***»***********•**•••*»**««*•»»**««****«**** **««*»***********} 


{*  Procedure  :  Read_Args  -  Read  in  arguments  passed  *} 

C«  Parameters  :  Info  *} 

{»  Entry  Conditions  :  The  Argument  File  contains  the  current  *1 

{*  state  of  the  system.  *3 

Process  :  The  current  state  is  sent  back  to  tne  Command  *3 

I*  Processor  in  Info.  If  the  last  module  executed  updated  *} 

{*  any  files,  then  the  Global  Directory  has  to  be  updated.  *3 


{•*«••««**•«#**•*********•*****«******•****«**•***«•**•*«**«*•*} 
procedure  read_ar gs ( var  info  :  arg_header); 
var  eolf  :  boolean; 

buffer  :  arg_entry; 
begin 

resetf (args  > ; 
readfiargs, buffer, eolf); 
i nfo:  =bs.’ffer . header . pro j _i n to: ; 
ne::t_proj:=duffer. header. next  _proj; 
next_user:=buffer. header. next_user; 
ne:.  t_:  d :  =buf  ter .  header .  next  _i  d ; 
repeat  3  Read  current  state  of  files  3 
react (args, buffer, eolf); 
if  not  eolf 
then  begin 

deietef(args); 
with  buf f er . f i le_entr y  do 
{  Update  the  Global  Directory  to  match  3 


uodate_file(info.last_mod, into. project  _id , 
f l 1 e  num , f i 1 e  1 oc ) ? 
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end ; 

until  eolf; 
end  j 

{*#**#*****************#*******************************#*******} 
{*  Procedure  :  Update_Header  -  5ave  current  state  *1 

{*  Parameters  :  Info  «} 

{*  Entry  Conditions  :  Info  is  the  current  state  of  the  system  *} 
{*  to  be  save  in  tne  Argument  File.  *} 

{*********************************♦***********#****************} 
procedure  update_header ( i nf o  :  arg_header); 
var  eolf,  writeok  :  boolean; 

buffer  :  arg_entry; 
begin 

resetf (args) ;  '  •  ' 

read f (args, buffer, eolf); 
buf fer. header. next_projs=next_oroj; 
buffer. header.  next_user '.  =next_user  ? 
buffer. header. next _id:=next_id; 
buffer. header. proj_info:=info; 
writef( args, buffer, writeok); 
end; 

{****•******«•*•***•***#**•***«»*«**«**••****««*****«****«#«*«*} 


{*  Procedure  s  Load_Args  -  Load  Argument  File  with  files  *} 
{*  Parameters  s  M,  Project  *> 
{*  Entry  Conditions  :  Module  and  Project  identify  which  files  *1 
{*  are  to  be  loaded.  *> 
{*  Process  :  The  Global  Directory  is  scanned  for  files  with  *} 
{*  matching  Module  and  Project  parameters.  When  found,  their  *} 
{*  locations  are  inserted  into  the  Argument  File.  *} 


{«****#*•*•*******•*•**********«*#*•»**«***«**»»*#»*»**»*****#«} 
procedure  load_args(m  :  modules;  project  :  integer); 
var  buffer  :  arg_entry; 

r  :  integer? 
eolf  :  boolean; 

begin 

{  Reset  the  Directory  and  the  Argument  files,  and  skip  the 
Argument  File  Header  record.  > 
resetf (g_dir) ;  resetf < args) ;  readt  (args , buf f er , eol f ) ; 
repeat  {  5can  the  Global  Directory  J 
with  buf f er . f i 1 e_entr y  do 

eo  1  f :  =get_loc  (ro,  project,  file  _n  urn,  f i le_loc) ; 
if  not  eolf 

then  insertf (args, r , buffer ) ; 
until  eolf; 
end; 


modend . 
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{#***#l«*l**»H»»»*****»»t*t»»«***#»H**H*HH**t#««l*4l»***»} 

{*  DiskList  Module  -  keeps  track  of  allocated  and  available  *> 
{*  Diskette  space.  *} 

{*  A  record  is  maintained  tor  each  diskette  in  the  svste*.  *1 
{*  Each  diskette  eav  be  either  assigned  to  a  specific  project,*} 
{*  or  assigned  to  a  user.  It  assigned  to  a  user,  then  it  is  *} 
{*  avaialable  for  assignment  to  a  project  created  by  tnat  user*} 
{*  only.  *} 

{**************** ************************************** *#***•*«} 
module  disk_list; 

const  max_space  3  376;  {  Maximum  space  available  in  Kbytes  } 
disks  =  6; 


wf  -  1 . .  10; 

links  =  record 

next , 

prev  :  integer; 
end; 

disk_assgn  =  record 

link  :  links; 
di  sk_i  d , 

free_space  :  integer; 
case  assigned  :  boolean  of 
true  :  (projected  :  integer); 
false  j  (user_id  :  integer); 
end; 


C  Which  disk  is  it  } 

£  Hon  much  room  is  available  } 


{  Global  Variable  initialized  by  Read_Args  -  See  Argument  Module  for  det 
ails  > 

var  next_id  s  external  integer; 

C  File  Access  Declarations  } 

£  See  the  LinkFile  Module  for  details  on  the  following  } 
external  procedure  readf(f:wf;  var  buf f er : di sk_assgn ;  var  eol f : bool ean ) ; 
external  procedure  writef (f : wf ;  var  buf f er : di sk_assgn;  var  wr i teok : boole 
an) ; 

external  procedure  insertf ( f : wf ;  var  rec_num: l nteger ; var  buf f er : oi sk_ass 
gn)  ; 

external  procedure  resetf <f swt i ; 

£  See  the  DiskID  Module  for  details  on  the  following  } 
external  procedure  new  disk(disk  id  :  inteoer)  : 


i*  Function  :  Get_Disk_ID  -  Assign  a  project  file  to  a  disk  * 
{♦  Parameters  :  User,  Project,  Size  ♦ 
{*  Result  :  Disk_ID  assigned  to  file  * 
{*  Entry  Conditions  :  User  identities  the  owner  of  the  file,  * 
£*  Project  identities  the  project  to  whicn  the  file  beionas,  ♦ 
{*  and  Size  is  the  number  of  KBvtes  reguired  by  the  file.  * 
{*  Process  :  The  Disks  File  is  scanned  for  a  diskette  already  * 
i*  assigned  to  Project  with  enough  free  soace  on  it.  If  one  * 
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£*  can't  be  -found,  then  the  file  is  scanned  for  a  diskette  *> 
£*  belonging  to  User.  If  one  is  found,  it  is  assigned  to  pro-*) 
{*  ject.  If  the  User  has  no  free  disks,  then  a  new  diskette  *) 
I*  will  be  added  to  the  system  and  assigned  to  the  project.  *} 
{*#**********###****•**#****#**#***********♦********♦***********} 
function  get_disk_i d (user ,  project,  size  :  integer)  :  integer: 
var  done,  eolf,  writeok  :  boolean; 
disk_data  :  disk_assgn; 
r  :  integer; 
begin 

resetf (di sks) ;  done:=false; 
repeat 

{  Look  for  a  diskette  already  assigned  to  Project  with 
enougn  free  space  on  it  for  the  file  } 
readf(disks,disk_data.eclf); 
if  ( (disk_data. assigned)  and 

(disk _data. project _id=project)  and 
(disk_data.free_space>=size)! 
then  with  disk_data  do 
begin 

£  Found  One!  } 
get_disk_id:=disk_id; 
f ree_space: =f ree_space-si ze; 
writef (di sks, disk_data, writeok) ; 
done: =true; 

end 

{  Next,  look  for  a  free  disk  assigned  to  User  } 
else  if  ((not  di sk_data . assi gned )  and 
(disfc_data.user  id=user)) 
then  with  disk_oata  do 
begin 

£  Assign  it  to  Project  ) 
get_disk_id:=disk_id: 
free _space:=max_s pace-size; 
assigned:=true; 
project_id:=oroject; 
wr it ef (disks, disk _data, writeok); 
done: =true; 
end ; 

until  (eolf  or  done)  ; 
if  not  done  — 

then  witt,  dist:_data  do 
b  e  g  1  n 

•1  have  to  make  a  new  diskette  avaiiacie  i 
disk_id:=ne:-. t_io;  nex t_i d :  =nex t _i d-1- 1 : 
get_di  s)._i  d:  =  di  sk_i  d; 
free_soace:=itiax_space: 
assigned :=true: 
oroject_id: -project; 
insertf(disks,r,disk_data); 

£  Label  and  identify  the  new  diskette  £ 
new  diskidisl  id’: 
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end : 

end ; 

{4«4«444****4444*«444444*4**«4*44»44*4*«4**4**44*44««44*44*4«*« 

I«  Procedure  :  Free_Disk  -  Deallocate  diskette  space  * 

<*  Parameters  :  User,  Project  * 

(*  Entry  Conditions  :  Project  identifies  the  project  which  is  * 
<*  is  no  longer  active,  and  User  identifies  who  the  released  * 
{*  space  will  be  assigned  to.  * 

{4444444444*44 44 4444444444444444 44*4444 444444444444444444444444 

procedure  free_di sk (user , pro ject  :  integer): 
var  eolf,  writeok  :  boolean; 

disk_data  :  disk_assgn; 
begin 

resetf (disks); 
r eoeat 

readf(disks, disk _data, eolf); 
if  ! (disk_data. assigned)  and 

(disk_data. projected =project)) 
then  begin 

disk  data. assigned:=false: 
disk_data. user_id: =user ; 
di sk_data. f ree_space: =max_space; 
writef (disks, disk_data, writeok); 
end; 
until  eolf; 
end; 


raodend . 
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{♦  Global  Directory  Module  -  Maintains  the  directory  of  all  *} 
£*  files  that  the  system  has  knowledge  of.  *} 
{####******* *♦***#****#****************************************} 
{*  There  are  three  types  of  files  maintained  in  the  directory.*} 
{*  The  majority  of  the  entries  are  for  actual  files  associated*} 
{*  with  either  projects  or  layout  modules.  These  entries  *} 
{*  contain  all  the  information  necessary  to  locate  and  use  the*} 


{*  file.  The  second  type  of  entry  is  the  "Template  Entry."  *} 
{*  A  template  entry  is  identified  by  a  D i s k _ I D  field  with  a  *} 
{*  value  of  zero.  Whenever  a  new  project  is  created,  a  new  *} 
{*  file  is  created  to  match  each  template  entry.  *} 
{*  The  third  type  of  file  entry  identifies  executable  files.  *} 
{*  These  entries  have  the  OS  (Operating  System)  flag  set  to  *} 
{*  identify  them.  There  will  be  one  entru  corresponding  to  *> 
{*  each  separate  module  of  the  layout  system.  *} 


'I*****************#********************************************} 
module  gl obal _di rector y; 
const  g_dir  =  7; 

dump  =  8;  {  Temporary  slot  used  for  files  } 

type 

whicht ile  »  1. . 10; 

{  Global  Directory  Type  Definitions  > 

{  Which  Module(s)  can  access  the  file?  } 
modules  =  (cp , selected , connecter ,pl acer .router , os) ; 

{  System  Dependent  File  Specification  } 
filespec  =  packed  arrayCl.,12]  of  char; 

{  System  Dependent  Drive  Identification  } 
dri ve_id  =  (A,  B)  ; 

{  Where  is  the  file  located  ?} 


where  =  record 

linked 
f ile_name 
drive 

disk_id, 
rec_len , 


boolean;  C  Linked  or  sequential  access  } 
filespec;  {  Name  of  the  File  } 
drive _id;  I  Drive  in  which  to 
Mount  Diskette  } 

{  Which  diskette  the  file  is  on  } 

{  The  record  length  (power  of  two) 


r ecs_avai 1 , 


\  Number  of  unused  records  in  fixe 


gd_entrv  = 


first, 

free  ;  integer; 

end ; 
record 
next , 

prev  ;  integer; 
end ; 
record 

links  :  link; 


{  Physical  record  number  of  first 
logical  record  } 
i  Physical  record  number  of 
free  soace  list  ) 


i  i  n  k  s  :  i  i  n  r: ; 

»odule_id  :  packed  array [modules]  o*  ccolean: 
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{  True  value  means  the  module  has 
access  to  the  tile  3 

file_num  :  whichfile;  C  Files  Array  Index  > 
project _id,  {  Project  to  which  tile  belongs.  A 

value  of  Zero  indicates  a  tile 
that  is  used  tor  all  projects  3 
how_many  :  integer;  {  How  Many  records  have 

been  allocated  3 

tile_loc  :  where; 
end ; 

{  See  the  File  Access  Module  tor  details  on  the  tollowing  3 

external  procedure  st atef ( f i 1 e_num : whi chf i 1 e;  var  first, free  :  integer) 

external  Function  r oomf ( f i 1 e_num  :  whichfile)  ;  integer; 

external  procedure  resetf ( f i 1 e_num  :  whichfile); 

external  procedure  initf (f i le_num  :  whichfile;  file_loc  :  where); 

external  procedure  c 1 osef ( f i 1 e_num  :  whichfile); 

external  procedure  cl ose_al 1 ( dr i ve  :  drive_id); 

external  procedure  r eadf ( f i 1 e_num  ;  whichfile;  var  buffer  :  ga_entry; 

var  eolf  :  boolean); 

external  procedure  wr i tef ( f i 1 e_num  :  whichfile;  var  buffer  :  gd_entry; 

var  writeok  ;  boolean); 

external  procedure  i nsertf (f i 1 e_nu«  :  whichfile;  var  rec_num  ;  integer; 

var  buffer  :  gd_entry); 

external  procedure  deletef (f i le_num  ;  whichfile); 

external  procedure  createf (f i le_num  :  whichfile;  how_many  r  integer); 
external  procedure  erasef ( f i 1 e_num  ;  whichfile); 

external  procedure  run_f i 1 e ( f i 1 e_naae  ;  filespec;  drive  :  drive_id; 

disk_id  :  integer); 
external  procedure  mit_files; 

{  See  the  Menu  Module  for  details  on  the  following  3 
external  procedure  imt_menu; 

{  See  the  TermlQ  Module  for  details  on  the  following  > 
external  procedure  init_term; 

;  See  the  Disk  List  Module  for  details  on  the  following  3 

external  function  qet_disk_id<user,  project,  space  :  integer '{integer: 


{*  Procedure  ;  New_files  *:• 

'*  Parameters  :  User,  Project  *3 

{+  Entry  Conditions  :  User  and  Project  identify  s  new  project  *3 

(*  that  the  user  is  creating.  *; 

{*  Process  :  The  Global  Directory  is  scanned  for  Template  *  3- 
Entries.  A  Template  Entry  is  identified  by  a  value  of  Zero*} 
{*  in  tne  DisK_ID  field.  For  each  Template  Entry  found,  a  new*} 

{*  file  is  created  and  an  entry  is  made  in  the  Global  *3 

{*  Directory.  *3 


procedure  new_f 1 1  es (user .  project  ;  integer j; 
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v  a  r  n  e  w  _g  d  e 
r 

max  kbytes 
bv  the 

maxbytes 

eolf 


gd_entry;  {  Butter  tor  New  Entries  } 
integer;  {  R  is  the  physical  record  number  of 

newly  inserted  entries  -  not  used  here.  } 
integer;  {  Maxk'bytes  is  the  numoer  of  kbytes  required 


file.  ) 

real;  {  The  number  of  bvtes  required  by  the  file  } 

boolean;  {  End  of  Directory  indicator  } 


begin 

resetf  < g _d i r ) ; 
repeat 

readf(g_dir, new _gde, eolf); 
if  new_gde, f i 1 e_loc . di sk_i d=0 
then  begin  C  Located  a  Template  File  } 
with  new_gde . f i 1 e_l oc  ao 
begin 

maxbytes: =rec_len  *  new_gde. how_many; 
maxkbytes: =round (maxbytes  /  1224)  +  1; 

{  Allocate  Diskette  space  for  the  file  J 

disk _id:=get_disk_idiuser, project. maxkbytes); 
end; 

{  Assign  the  file  to  the  Project  1 
new_gde. projected:  =p  reject; 

•C  Create  the  new  file  } 
initf(dump,new_gde.file_loc); 
createf(dump  ,  new_gde.  how_i»any ) ; 
closet (dump ) ; 

{  Add  it  to  the  Directory  > 
insertf (g_dir,r,new_gde) ; 


end ; 

unti 1  eol f  ; 


end; 


{************#***********#**********#**«*#********#************} 
{*  Function  :FPP-  Files  Per  Project  *)• 

{»  Fesult  :  The  number  of  files  created  for  every  Droject  *> 

function  fpp  :  integer; 
begin 

fpo:=3  C  Value  depenas  cr.  current  system  configuration  } 
end; 


.***■*  i 


C*  Procedure  :  K i 1 1 _ G D E  *} 

{♦Parameters:  Pro  iect_ID  * : 

l*  Entry  Conditions  :  Froiect_ID  identifies  tne  orcject  whose 
{»  files  are  to  be  removed  from  the  Directory. 

{*  Process  :  Tne  Directory  is  scanned  loo-ing  fo-  En-tries  with*} 
{*  a  Froject_ID  that  matches  the  paramete-.  Wnen  feu  re.  those  *  ). 
{*  Directory  Entries  are  deleted  and  the  corresponding  file  is*} 
{*  c urged  from  the  system.  *} 
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procedure  1;  i  1 1  _gde  (pro  jec  t_i  d  :  integer); 

var  gde  :  gd_entry;  {  Directory  Entry  Butter  ; 

eel  f  :  boolean;  {  End  of  Directory  flag  > 
begin  C  kill  } 

it  project_id<>0 
then  begin 

reset* (g_dir) ; 
repeat 

readf(g_dir,gde,eolf); 
it  gde. pro ject_id=pro ject_id 
then  begin  {  Found  one!  ) 
deletef(g_dir>; 
ini tf (dump ,gde. fi le_l oc ) ; 
erase* (dump ) ; 
end ; 

until  eolf; 
end : 

end;  {  kill  } 

{**+*************#************#******#*************************} 
{*  Procedure  :  UpdateGD  Update  Global  Directory  *1 

{*  Process  :  Betore  the  Command  Processor  Finishes  execution,  *} 
{*  the  new  status  o*  all  o*  the  files  oust  be  recorded  in  the  *} 
{*  Directory  to  keep  it  current.  As  records  are  added  to  or  *} 
{*  deleted  from  the  Command  Processor  Files,  the  First,  Free,  *3 
{*  and  Recs_Avail  parameters  are  subject  to  change.  *3 

'•»****•»****«*»  it**************************** ******************} 

procedure  updategd;  <  Must  be  called  before  CP  terminates!1!} 
var  eolf,  writeok  :  boolean; 

gde  ;  gd_entry; 

first,  free,  recs_avail  :  integer;  <  Parameters  to  be  updated  } 
begin 

resetf (g_di r ) ; 
repeat 

readf(g_dir,gde,eolfl; 
if  ((not  eolf)  and  gde. modul e_i dtep  1 
then  begin 

{  Get  the  current  state  of  the  file  3 
statef (gde. file _num, first, free; : 
gde.file_loc.-fir3t:  =  first; 
gde.file_loc.free;=free; 

{  Get  the  number  of  available  records  > 
gde.  file_loc.recs_a  vail :  =r  oomf  (gde .  f  1 1  e_nuir. ) 
write* (c_dir, gde, writeok) ; 
end ; 

until  eolf; 

(  Make  sure  all  the  files  get  undated  in  the  05  directory  3 
:lese_al 1 (A) ; 
cl ose_al 1(E); 
end ; 
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{*  Procedure  :  Update_File  -  Update  a  tile's  GD  Entry  *3 
{*  Parameters  :  File_Num,  Project,  File_Loc  *3 
{*  Entry  Conditions  :  Fiie_Num  and  Project  identities  the  tile*} 
{*  whose  Global  Directory  Entry  must  be  updated.  *} 
{*  Process  :  The  Pile  is  located  in  the  Directory  and  the  *} 
{*  entry  is  updated  with  the  information  in  File_Loc.  *} 


{ *************************#********************»***************} 
procedure  update_P i 1 e (m  :  modules;  project  :  integer; 

Pile_num  t  wnichPile;  Piie_loc  :  where); 
var  eolP,  writeok  :  ooolean; 

gde  :  gd_entry; 
begin 

resetP (g_dir) ;  wr i teok :  =  f a  1 se ; 
repeat 

readf(g_dir, gde, eolf); 
lP  ( '. gde.  f  i  i e_num=f  i  1  e_num /  ana 
igde. project_id=project)  and 
(gde. module_idCm3 ) ) 

then  Degin  {  This  is  the  Entry  to  be  Updated  3 
gde.file_loc:=fiie_loc; 
writet (g_dir , gde, writeok) ; 
end ; 

until  eolP  or  writeok; 
end; 

{***»»»»*»**»»**•»»**»»*»»•«»»*****»*****«*«**««****«#**»******} 


{*  Function  :  Get_Loc  -  Locate  Piles  Por  other  Modules  *} 
{*  Parameters  :  Module,  Project,  File_Num,  File_Loc  *3 
■C*  Result  :  EQLF  condition  *} 
{*  Entry  Conditions  :  Module  and  Project  identity  which  files  *3 
{*  are  to  be  looked  Por  in  the  Directory.  *3 
i*  Process  :  The  Directory  is  scanned  Prom  the  current  *} 
{*  looking  tor  Piles  that  belong  to  the  Module  and  Project.  *3 
{*  If  one  is  Pound,  its  number  and  location  are  returned  to  *3 
<*  the  caller.  This  Punction  should  be  called  repeatedly  *3 
{*  until  an  End  oP  File  condition  is  signalled.  *3 
{*  Exit  Conditions  :  File_Num  and  File_loc  are  returned,  and  *3 
{*  the  function  returns  a  FAl5E  value,  if  a  file  was  located  ♦> 
■C*  tnat  Delonged  to  the  module  and  project.  If  the  End  of  *; 
{*  file  is  reached,  then  tne  function  returns  a  TRUE  value.  *3 

function  get _1 oc (m  :  modules;  project  :  integer; 


var  f i 1 e_num  :  whichfile;  var  * : l e_i o:  :  where)  :  bcolean; 
var  eolf  :  boolean; 

gde  :  gd_entry; 
oegin 
repeat 

readf (g_dir , gde, eolf); 
until  leolf  or 

< (gde. modul e_i dim J )  ana 

((gde.project_id=oroject>  or  ioae.oroject_id=3)).’) 
•'lie  n urn: =ade. file  num: 
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file _loc:=gde. file _loc; 
get _1 oc : =eol f ; 
end; 

{****»*****»««•********«****#*«**«******«*«***********#*****«**} 
£*  Procedure  :  I n i t _A1 1  Initialize  Everything!  *) 

{*  Process  :  After  some  Miscellaneous  initialization  routines  *) 
£*  are  called,  the  Global  Directory  is  Initialized.  Then  all  *) 
£*  of  the  Command  Processor  Files  are  looked  up  in  the  *> 

{*  Directory,  and  they  are  initialized.  No  access  may  be  made*} 

£*  to  a  file  until  it  is  initialized!  *} 

{ft************************************************************#} 

procedure  mit_all; 

var  file_loc  :  where; 

eolf  :  boolean; 
gae  :  gd_entry; 

begin 

init_files;  £  Set  up  the  file  array  with  all  files  closed) 

init_menu;  £  Set  the  menu  pointers  to  nil  ) 

imt_term;  £  Perform  all  necessary  terminal  setup,  if  any 

£  The  global  directory  must  be  initialized  > 

with  file_loc  do 

begin 

£  You  have  to  know  where  to  find  the  Directory  } 
disk_id  :=  1; 
f i 1 e_name  s =  'GLOBAL. DIR 
drive  s=  A; 

rec_len  :=  si z eof (gd_entry ) ; 

linked  :=  true; 

first  :=  0;  £  This  should'nt  change1!!) 

end; 

initf(g_dir,file_loc); 

£  Free  and  Recs_Avail  parameters  still  not  set  ) 
resetf (g_di r ) ; 

£  Look  up  Directory  entry  in  the  Directory  to  set  them  ) 
repeat 

readf(g_dir,gde,eolf); 
until  gde.f ile_num=g_dir; 
closef(g_dir);  initf(g_dir,gde.file_loc); 

£  Now  the  rest  of  the  files  can  De  located  ) 

resetf(g_dir); 

repeat 

read f (g_di r , gde , eolf); 
if  ('.not  eolf)  and 

(gde.f i le_num< >g_dir)  and 
(gde. modul e_i d£co ) )  and 
(gde.project_id=0) ) 

then  initf(gde.f lie _num, gde. file _loo: 
until  eolf; 
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{*  Procedure  :  Exec  -  Execute  an  Operatit.g  System  Program  *> 
{*  Parameters  :  Module  *> 
{*  Entry  Conditions  :  Module  identifies  the  Program  to  be  *> 
{*  executed.  The  Command  Processor  will  no  longer  be  in  *> 
{*  control.  *> 


{**»*****#************-*********************+*******************} 
procedure  exec(m  :  modules); 
var  gde  :  gd_entry; 

eolf  :  boolean; 
begin 

■C  To  execute  03,  all  that  is  necessary  is  to  return  tram 
this  procedure,  after  which  the  program  will  end!  > 
if  mOos 

{  Otherwise,  the  proper  module  must  be  executed.  > 
then  begin 

resetf (g_dir ) ; 
repeat 

readf(g_dir, gde, eolf); 

if  (gde. module_idCm)  and  gde. module_i d [os ] ) 
then  with  gde.file_loc  do 

run_f i le (f i 1 e_name , dr i ve , di sk_i d )  ; 
until  eolf; 
end; 

end;  {  If  you  get  to  here,  then  the  OS  will  take  control.  > 
modend . 
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{*«*«*«********«*****«**««**«*«******«*»*»»»*«*»•****»»**»»****} 
{*  Command  Processor  Module  *} 

{********************#*****»***#***************«***************} 


{* 

The  following 

1  files  must  exist  on  the  master  CP  disk 

*1 

{* 

(Disk  number 

1) : 

*} 

{* 

GLOBAL. DIR 

- 

describes  the  parameters  of  the  rest 

*} 

{# 

of  the  files 

*} 

{* 

MENUS. CP 

- 

Contains  menus  1  and  2 

#} 

{* 

(See  Sel ect_0pti on  and  Get_Next_Modul e 

*} 

{* 

for  menu  contents) 

*} 

{* 

HELP. CP 

- 

Contains  all  of  the  system  Help 

*) 

{* 

messages. 

*} 

{* 

USERS. CP 

- 

A  list  of  all  Users  and  their  ID's 

{* 

PROJECT. CP 

- 

A  list  of  all  Projects  and  their  ID's 

*} 

{* 

DISKS. CP 

- 

Contains  Diskette  space  allocation 

♦  } 

{* 

ARGS.CP 

- 

The  argument  file  is  the  means  of 

*  1 

{* 

communication  between  the  system 

*} 

<* 

modules.  It  also  contains  “Current 

*> 

{* 

State"  information  that  must  be  saved 

*} 

(* 

between  Command  Processor  sessions. 

*} 

{* 

In  particular,  the  Command_Processor 

*} 

{* 

Global  Variables  are  initialized  with 

*> 

u 

the  following  information: 

*> 

{* 

projected 

- 

Number  of  Last  project  accessed 

*} 

{* 

user_id 

- 

Identity  of  current  user 

*} 

{* 

error _code 

- 

Error  conditions  of  other  modules 

*> 

{* 

completion 

- 

State  of  completion  of  projected 

*} 

{* 

Exit  Conditions  :  The  Global  Directory  and  Argument 

*} 

{* 

Files  are  i 

updated,  and  either  the  program  is  exited,  or 

*> 

{* 

the  next  layout  nodule  is  invoked. 

*} 

{ft********************************************#****************} 
program  command„processor ; 


const  max_prompt  =  30; 

{ 

Maximum 

1 ength 

of 

a 

profflDt 

} 

max_num  =  10; 

{ 

Max i mum 

1 ength 

of 

a 

number 

1 

i 

max_str  =  30; 

< 

Maximum 

length 

of 

a 

string 

} 

type 

{  Query  Type  Definitions  > 

unit  =  (mils,  inches,  mm,  scalar); 
prompt_string  =  packed  array  [  1 ..  Bia;:_prompt  ]  of  char; 
p_len  =  1 . . max _prompt ; 
position  =  l..»ax_str; 
string_case  =  (upper,  lower,  none); 
char_string  =  packed  arravC  i , .  ma::_str  ]  of  cnar; 
yesno  =  (yes,  no,  i_dunno>; 
boxes  =  ta ,  m,  h j  : 

C  Global  Directory  Type  Definitions  J 

modules  =  <cp , sel ecter , connecter ,p 1 acer ,r outer ,os ,undef i ned ) ; 

{  A  list  of  the  possible  values  for  the  next  module 
to  be  executed  } 
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{  List  of  Projects  Type  Definitions  > 

state  =  (select_boara ,  sel ect_component ,  sel_done, 

connections.  conn_oone,  placement,  place_aone, 
routing,  route_done); 

{  A  list  o-f  the  possible  values  for  the  state  of 
completion  of  a  project  ) 

{  Argument  File  Type  Definitions  ) 

{  Arg_Header  defines  the  information  the  Comaand_Pr ocessor  read 
from  the  ARGS.CP  file  to  initialize  the  global  variables.’ 


ar g_header 

=  record 

projected 
user_i d , 

i 

error _code 

:  integer; 

complet i on 

:  state; 

nex  t_mod 
end; 

:  modules; 

var  (  Global 

Variables  > 

current 

:  arg_header; 

val  id 

:  boolean;  C 

Indicates  the  validity  of  a  user  } 

{  Query  Declarations  } 

(  See  the  Query  Modules  for  an  explanation  of  these  routines  > 

proapt_string; 
p.len; 
position; 
char_stri ng; 
position! 
string_case? 
integer ; ; 
prompt_string; 
p_len; 
vesno; 
integer  ; ; 

{  Screen  I.Q  Declarations  > 

C  See  the  TermlG  Module  for  an  explanation  of  these  routines.  } 
external  procedure  goto_box(box  ;  boxes;  x,y  :  integer;; 
external  procedure  c 1  ear _1 1 ne ( box  ;  boxes;  y  :  integer); 
external  procedure  cl  ear _box (box  :  boxes;; 
external  function  get_count (box  :  boxes!  ;  integer; 
external  procedure  input_error terr_msg  ;  char _str i ng ; : 

v  See  the  Global  Directory  Module  for  details  on  tne  f cl  lowing 
external  procedure  init_all: 

external  procedure  new_f i 1 es ( user .  project  :  integer): 
external  procedure  ki 1 1 _gde tpro ject  ;  integer); 
external  procedure  updategd; 
external  procedure  exec(next  mod  :  modules); 

"a1 

{  See  the  Users  Module  for  details  or.  the  following  } 


$ 


external  procedure  querystr (prompt 

prompt_length 
min,  max 
var  answer 
var  string_length 
make_case 
help_index 

external  procedure  query_yn (prompt 

prompt_l ength 
var  answer 

help_mdex 
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external  -function  lookup  (user_name  :  char_string: 

var  password  :  char_string; 
var  id  :  integer;  :  boolean; 

external  -function  add _user(user_n a me,password:cnar_string):  integer; 
external  function  newuserok  :  boolean; 


(See  the 
external 
external 
external 
external 
external 
external 

external 


Projects  Module  tor  details  on  the  -following  ) 

procedure  update_pr o j_l i st (i d  :  integer;  completion  :  state) 

■function  sel  ect  _pr  o  j  ect  (user  _i  d  :  integer)  :  integer; 

function  get_state(id  :  integer)  :  state; 

procedure  get_na«e ( i d ; integer ; var  name: char_string) ; 

function  new_p_ok  :  boolean; 

procedure  new_project ( var  name,  desc  :  char_string; 

user  :  integer;  var  id  :  integer); 
procedure  f ree_pro j (pro ject_id  :  integer); 


{  See  tne  Disk  List  Module  for  details  on  the  following  } 
external  procedure  f ree_disk (user ,  project  :  integer); 

£See  the  Menu  Module  for  details  on  the  following  function  ) 
external  function  menuinum  ;  integer)  :  integer; 

£  See  the  Argument  Module  for  details  on  the  following  } 

external  procedure  read_ar gs (var  info  :  arg_header); 

external  procedure  update_header (inf o  :  arg_header); 

external  procedure  load_ar gs tnext_#od  :  modules;  project  :  integer); 


;#**********************«**********«*****************»*********} 
(*  Procedure  Name  :  Resolve  *) 

{*  Parameters  :  Error_Code  *} 

{*  Entry  Conditions  :  Error_Code  identifies  a  particular  error*) 
{*  condition  that  another  module  was  unable  to  handle.  *) 

{*  Exit  Conditions  :  If  possible,  the  error  condition  will  be  *) 
C*  corrected  and  the  error_code  will  be  reset  to  zero.  *) 

{*  In  the  current  implementation,  this  is  a  dummy  routine,  but*) 
{*  it  is  provided  for  future  expansion.  *) 

f**************************************************************} 
procedure  resolve(var  error_code  :  integer): 
begin 

write('***»*  ERROR  ' ,error_code: 3,  *****'); 

errcr_code : =0 
end: 


•i*  Procedure  :  Get_Identity  *1 
(*  Parameters  :  ID,  Valid  *) 
£*  Entry  Conditions  :  The  identity  of  the  user  is  unknown.  *) 
{*  Exit  Conditions  :  ID  will  identify  the  user  it  he  exists.  *) 
<*  Valid  is  a  flag  that  will  indicate  if  the  user  exists.  *) 


procedure  get_identitv(var  id:integer:  var  val i d : cool ean ) ; 
const  no  oassword  =  '  : 
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var  name,  I  The  name  of  the  user  } 

password  :  char_string;  (  His  Password  } 

narae_len  :  position;  {  The  number  of  characters 

in  the  user  '  s  name  1 

found  :  boolean;  {  A  Flag  indicating  whether 

or  not  the  user  already 
exists  ) 

answer  :  yesno;  {  Will  indicate  if  the  user 

typed  his  name  correctly  } 


I**************************************************************} 


{*  Procedure  :  CreateJJser  *} 
{*  Parameters  :  Name  *} 
{*  Outer  Level  Variables  :  Password,  ID,  Valid  ♦  } 
{*  Entry  Conditions  :  Name  was  not  found  in  the  List  of  *} 
{*  Current  Users.  *> 


{*  Exit  Conditions  :  If  there  is  room  for  another  user  in  the  *  1 
{*  List  of  Current  Users  and  the  ooerator  indicated  a  desire  *} 
{*  to  become  a  user,  then  ID  and  Password  will  be  updated  and  *1 
{*  Vaild  will  be  set  to  true.  Otherwise,  Valid  will  be  false.*} 
{**«**#** ***•*»»»*»»****#***»**************»******«***********«} 
procedure  create_user (name  :  char_string) ; 

var  answer  :  yesno;  {Will  indicate  whether  or  not 

the  operator  wishes  to  become 
a  user  } 

I****#*******************************************************#*} 

{*  Procedure  :  Get_Password  *} 

{*  Parameters  ;  Password  *} 

{*  Entry  Conditions  ;  A  new  user  must  be  assigned  a  Password  *1 
{*  Exit  Conditions  s  If  the  user  indicated  that  he  didn't  wart*} 
{*  a  password,  then  Password  will  be  set  to  all  spaces.  *} 

{*  Otherwise,  Password  will  be  set  to  whatever  character  *;■ 

{*  string  he  entered.  *} 

I**************************************************** *#*♦*♦****} 
procedure  get_password ( var  password  :  char_stri no ) ; 

var  answer  :  yesno;  (  Will  indicate  whether  or  not 

a  password  is  desired  } 

len:  position;  {  The  length  of  tne  password  } 

begin 

query_yn(  Dc  you  want  a  Password?  ',23, 

answer ,  4 )  ; 
if  answer=ves  then 

quer vstr i ' What  will  vour  Password  be?  '.27, 

5,28 .password , len. none. 5) 
else  password; =no_pas5word; 
ena;  I  get_password  } 

begin  {  create_user  } 

if  newuserok  i  There  IS  room  tor  another  one  . 

then  begin 


1' 
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query_vn(  Do  you  wish  to  become  a  user?  ',29, 


answer  .  c. !  ; 


it  answer=ye5 

then  begin  {  A  New  User!!!} 

get _password (password); 
id:=add_user(name, password): 
val 1 d: =true; 
end 

else  val i d: =t al se; 


else  lnput_error ( 'No  More  Room  tor  New  Users!  '); 
end;  {  create_user  } 


{******t*4»*******#****«**-»***t-***-»*****#**t**  +  *»«-**-»t***t*****} 

{♦Function  :  Ver i  tv  _Ider.titv 

{♦Parameters:  Password  *} 

{♦  Entry  Conditions  :  Tne  users  name  was  located  in  the  List  *; 
{*  ot  Current  Users,  and  Password  contains  the  password  that  *> 
{»  the  user  originally  specified.  ♦} 

{♦  Exit  Conditions  :  If  the  comparison  string  entered  by  the  *} 
{♦  user  matches  his  original  Password,  or  if  the  original  is  *) 
{♦  all  spaces,  then  the  function  returns  a  True  result.  *} 

{♦  Otherwise,  a  False  value  is  returned.  The  user  get  three  ♦> 
{*  tries  to  get  the  password  right.  *} 

{»*#** ft******************************************* •»«*#***#****} 

function  ver i f y_i den t i ty ( password  :  char_string)  :  boolean: 
var  testword  :  char_string;  {  The  string  to  compare  with 


position: 


tries  :  integer; 


valid  :  boolean; 


the  original  Password  } 

{  The  number  of  characters  in 
testword  } 

£  Counts  the  number  of 
attempts  to  match  } 

(  Indicates  result  of  com¬ 
parison  } 


oegin 

if  password=no_passwor d 

then  veri f y_i denti tv: =true 
else  begin 

tries:=B;  valid:=false; 
repeat 

quervstr  <  Prove  It ! 

-.20.  test  word  .  1  er.  .none  .6; ; 
if  testword=oassword  then  valic:=true; 
tries :=tries+i: 
until  (valid  or  (tries=3)): 
verify_identity:=va!id: 
end 

end;  {  verify  identity  ) 


begin  £  get_identity  } 
repeat 

gue(  •>  str  (  '  Who  Ar;  \  ou 


>1 


.  •  . 
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2 , 20 , name ,  name_ len  .upper ,  1 ) ; 
t ound: = lookup (name , password .id);  an5wer:=yes; 
if  not  found 
then  begin 

clear_line(q,-l ) ; 
write (name) ; 

query_yn('Is  your  name  correct?  ',21, 

answer  ,2) ; 
clear _1 i ne (q ,-l ) ; 
end ; 

until  answer=yes; 
if  not  found 

then  cr eate_user (name ) 
else  valid! =ver i f y_i dentity (password ) ; 
end;  {  get_identity  > 

{***************************************************«****♦*****} 
{*  Procedure  :  Select_Option  *3 

{*  Parameters  :  User_ID,  Project_ID,  Completion,  Next_Module  #3 
{*  Entry  Conditions  s  (Jser_ID  identifies  the  current  user.  *} 
Exit  Conditions  s  Project_ID,  Completion,  and  Next_Module  *} 
{*  will  have  been  updated  to  reflect  the  current  status  of  the*) 
{*  project  selected  by  the  user.  *} 

{**«***********#***#•**#•***#**«»****»«•******#*#*«•#*«****»•#*} 
procedure  sel ect_option (var  user_id  :  integer; 

var  projected  :  integer; 
var  completion  :  state; 
var  next_module  :  modules); 

var  name  :  char_string;  {  Will  contain  the  name  of  the 

current  project  } 

selection  :  integer;  {  The  Menu  Selection  Index  > 


;***«*»*«»*«»*•**«»*«*»»**»»*»**»***«»********»*****»*«•»**»***} 
{ *  Function  :  Get_Next_Modul e  *} 

{ *  Parameters  :  Completion  *3 

{*  Entry  Conditions  :  The  user  has  selected  a  project  and  *3 
-l*  desires  to  work  on  it.  Completion  identifies  the  current  *3 
{*  state  of  the  selected  project.  *3 

{*  Exit  Conditions  :  The  function  result  is  the  Next  Step  in  *3 
{*  Layout  Process  that  the  user  has  selected,  ft  given  step  *3 
{*  may  be  repeated  as  often  as  desired,  but  may  only  oe  pe-~  *> 
i*  formed  if  all  of  the  previous  steps  have  been  completed.  *> 

{#*** #**«##******»»**«**»t****»«»4*»»»*#*«»*«» ***♦***♦*♦♦ ««»*«*} 

function  get _ne:<t_modul e (compl eti on  :  state)  :  modules; 

var  selection  :  integer;  i  Will  contain  the  selection 

from  Menu  2  3 

answer  :  yesno;  (  Will  contain  response  to 

query  on  repeating  a  step! 
highest,  next:  modules;  {  Will  identify  the  highest 

allowable  step  and  the 


answer  :  yesno; 


highest,  next!  modules; 


w 
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users  selection  > 

begin  {  get_nex t_modul e  1 
case  completion  of 

sel ect_boar d ,  sel ect _component  :  h 1 ghest : =sel ect er ; 

.sel_done,  connections  :  highest:=connecter; 
conn_done,  placement  :  hi ghest : =p 1 acer; 
place_done,  routing,  route_done  :  hi ghest : =router : 
end ; 
repeat 
repeat 

selection: =menu (2) ; 

{  1  :  Selecter 

2  :  Connecter 

3  :  Placer 

4  :  Router  } 

case  selection  of 

1  :  ne:( t :  =sel ecter ? 

2  :  next : =connecter ; 

3  :  nexts=placer; 

4  :  next:=router; 

end; 

if  next>highest 

then  i nput_error ( ' You  Can''t  do  that  yeti 
until  nex t<=hi ghest ; 
if  next<highest 

then  query_yn ( ' You  want  to  redo  this  step?  ',27 
answer ,16) 

else  answer: =yes; 
until  answer=yes; 
get_nex t_oodul  e: =next ; 
end;  (  get_next_«odule  > 

{************ *■******************♦***********♦****************♦*} 
{*  Procedure  :  Create_Pr o ject  *} 

<*  Parameters  :  User,  ID,  Name  *> 

{*  Entry  Conditions  :  The  user  has  decided  to  create  another  *1 
<*  project.  User  is  the  identification  number  of  the  current  *1 
{*  user  to  whoa  the  new  project  will  be  assigned.  *} 

{*  Exit  Conditions  :  If  there  is  room  for  another  project,  *1 
then  ID  will  contain  the  project  identification  number  tnat*! 
{♦  was  assigned  to  it,  and  Name  will  contain  the  user  assigned*', 
{*  name.  If  there  is  not  room  for  another  project  to  be  *} 

;*  defined,  then  TD  will  be  zero.  *]■ 


procedure  create_prc ject (user  :  integer;  var  ic  :  integer; 

var  name  :  char _str i ng ) : 

var  desc  :  char_string;  {  User  s  description  of  project 
ans_ler,  :  position;  I  Number  of  characters  :r  name 
begin 

if  new_p_ok 

then  begin  {  There  IS  room  for  another  project  ) 

quer vstr (  '  What  do  you  want  to  call  it7  ,26.2, 


m 
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name, ans_len. none, 20 >; 

querystr ( ' Gi ve  a  brief  description  :  '.26,1,32, 

desc,ans_len,none,2l) ; 

{  Add  the  project  to  List  of  Projects  } 
new_projectiname,desc,user,id); 

{  Allocate  Diskette  space  for  tne  project  ) 
new_t i 1 es (user , i d) ; 
end 

else  begin 

input_error ( 'No  More  Room  for  Projects!  ); 

i d : =0; 

end; 

end ; 

{*«********»***#**«*«*********#****«*•**»**********«#*********»? 


{*  Procedure  :  Kill_Project  *> 
{*  Parameters  :  User,  Project  *} 
{*  Entry  Conditions  :  The  user  has  decided  to  destroy  the  *1 
{+  currently  selected  project  identified  by  Project.  *1 
I*  Exit  Conditions  :  The  project  will  have  been  removed  from  *> 
{*  the  List  of  Projects  and  the  diskette  space  will  have  been  *> 
{*  de-al  located.  Also,  Project  will  have  been  reset  to  zero  *} 
{*  to  indicate  that  there  is  no  longer  a  current  project.  *} 


I**************************************************************} 

procedure  ki 1 1 _pr o ject luser : i nteger ;  var  project: integer ) ; 
begin 

C  Remove  the  Project  from  the  Directory  } 
kill _gde (pro ject )  ; 

C  Remove  the  project  from  the  List  of  Projects  } 
free_projectiproject); 

{  De-allocate  the  Diskette  space  } 
free _disk(user, project); 

{  Reset  to  No  Current  Project  ) 
project: =0; 
end; 

begin  {  Select  Option  } 
if  pro ject_id<  >0 

then  oegin  C  There  IS  a  currently  selected  project  ) 

(  Make  sure  the  List  of  Projects  is  uo  to  Date  } 
update_pr o j_l i st ipro ject _i d ,comolet  l  on ) ; 
get _nameiproject_id, name); 

end 

else  r,ame:=  No  Current  Project  Selectee.  ; 

nex tjnoduie: =undefined; 

repeat 

ciear_lineiq,3);  write*  Current  Project  :',name): 
sei ect i on : =menu ( 1 ) ; 
i  1  :  Continue  Project 
Z  :  Switch  Projects 

3  :  Create  New  Project 

4  :  Discard  Project 
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5  :  Exit  to  Operating  Svstem  } 
case  selection  of 

1  :  if  pr o ject_id=0 

then  1 nput _er r or ( ' No  current  project  selected!  ) 
else  next_module:=get_next_module (comp  1 et i on ) ; 

2  :  begin 

project_id:=select_project(user_id); 
if  project_id=0 

then  input_error ( ’ You  have  no  Projects  Defined!  ') 
else  begin 

cofflpletion:=get_state(project_id); 
get _name(project_id, name); 
end; 

end ; 

3  :  cr  eate_pr  o  j  ect  (user  _i  d  ,  oroject_id,  name); 

4  ;  if  pr o ject_i d< >0 

then  begin 

k  i  1 1  _pr  o  ject  (user  _i  d  ,  projected); 

Yiame!=  No  current  project  selected.  : 
end ; 

5  :  begin 

next_*odule: =os; 
pro ject_id: =0; 
user_id: =0; 
er.d ; 

end; 

until  next_module<)undef ined: 
end;  <  sel ect_opti on  } 

{********♦+***#*«***#****##***#*##*###•»♦•***********•***♦**«*♦***> 


{*  Procedure  :  Execute_Next  *3 
{*  Parameters  :  Module,  Project 

{*  Global  Variables  :  Current  *> 
{*  Entrv  Conditions  :  Module  and  Project  will  identify  the  *J 
{*  module  whicn  is  to  be  executed  next.  *> 
{*  Exit  Conditions  :  The  selected  module  will  be  executed  *} 
{*  after  the  Argument  file  is  set  up  with  the  names  of  all  *} 
{*  of  the  files  reauired  by  the  module.  The  Directory  will  *} 
'*  have  been  updated  to  reflact  any  changes  in  the  status  of  *> 
{*  all  the  -files  used  tv  the  command  processor.  *> 
{*  Note  that  control  will  NCI  return  to  tne  calier1 


{***♦***#***»******»**##**♦*********♦*♦♦**♦*♦#*#****♦*♦*♦♦«■**♦*} 

procedure  ex ecut e_nex t (nex t _mod  :  modules;  project  :  integer); 
beg  i  n 

update  header i cur  rent > ; 
load  _ar  os (nex t  _mod .project  1  ; 

upoategd;  \  Update  Global  Directory  and  Close  all  tiles  1 
exec (next_mod) ;  (  No  direct  return  from  this  procedure!  1 
end ; 

begin  {  command  processor  } 
l m  t  all; 


s  >» 
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read_aras(currenti; 
with  current  do 
repeat 

it  error_code< >0 

then  resoi ve (error _code ) ; 
it  i.  tuser_i d  =  0 )  and  (error _code=S)  ) 
then  get_i denti ty (user_i d , val i d ! 
else  valid:=true; 
it  (valid  and  (error_code=0) ) 

then  sel  ec t _opt i on (user  _i  d  ,  projected,  completion,  next_mcd) 
it  error_code=0 

then  execute_next (next_raod ,  projected); 
until  error_code=0 
end . 
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program  termio; 
const  q_x 

q_y 

q_l ines 
m_x 

*_y 

m  l  ines 
h_x 

h_y 

h_l ines 
clear_to_eol 
max  _prampt 
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5; 

12; 

3; 

5; 

i; 

10; 

30; 

i; 

10; 

'#1E'; 

30; 


type  boxes  =  (q,  m,  h); 

char_string  =  arrayll. . aax_prompt]  of  char; 

procedure  gotoxy(x,y  :  integer);  external; 
procedure  writechich  :  char);  external; 

■function  getkey  :  char;  external; 

procedure  wait_key; 
var  dummy  :  char; 
begin 

dummy: sgetkey; 

enHi 


procedure  goto_box(box  :  boxes; 
begin 

case  box  of 

q  ;  gotoxy (q_x+x ,q_y  +  y) ; 
a  :  gotoxy («_x+x ,«_y+y) ; 
h  :  gotoxy (h_x+x ,h_y+y) ; 
end; 
end ; 

procedure  cl  ear _1 i ne (box  ;  boxe1 
begin 

goto_box (box ,0,y) ; 
wr i tech (clear_to_eol ) ; 
snd; 


integer ) ; 


boxes;  y  ;  integer); 


»  *  v".  v‘  v'  v'  ^  ^  - 
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procedure  cl ear_box (box  :  boxes); 
var  line,  lines  :  integer; 
begin 

case  box  of 
g  :  lines:=q_lines; 

■  :  1 ines: =m_l ines; 
h  :  1 iness =h_l ines; 
end; 

for  line:-0  to  lines  dD  cl ear_l ine (box , 1 ine) ; 
end; 

function  get_count (box  :  boxes)  :  integer; 
begin 

case  box  of 

q  :  get_count s =q_l i nes; 
a  :  get_count:  =<#_1  i nes; 
h  :  get_count:=h_l ines; 
end; 
end; 

procedure  input_err ierr_asg  :  char_string) ; 
begin 

c 1  ear _1 ine(n,a_lines+l) ; 
write  (err_«»sg) ; 
write  ( '  Press  any  key.  ' ) ; 
wai t_key ; 

clear_line(a,«_lines*l) ; 
end; 

begin 

ItNULLBODY} 

end. 


E-2 


QueryYN  Nodule 


prograa  quer y_yes_no; 
const 

cursoron  *  ‘»0£‘; 
cursoroff  *  ‘ *0F ' ; 
return  =  ’#0D'; 
escape  =  '103';  (cntl  C) 

aax_proapt  =  30;  {  Maxinua  length  of  a  prospt  > 


type 

{  Query  Type  Definitions  } 

proapt_str ing  *  packed  arrayTl. .aax_proapt]  of  char 
p_len  *  1. .«ax_proapt; 
yesno  s  (yes,  no,  i_dunno); 
boxes  s  (q,  a,  h); 

procedure  clear_box (box  :  boxes);  external; 

procedure  gotc_box(box  :  boxes;  x,y  :  integer);  external 

procedure  wntech(ch  :  char);  external; 

function  getkey  :  char;  external; 

procedure  hel p (help_i ndex  :  integer);  external; 

procedure  query_yn (proapt  :  proapt_str ing; 
proapt.length  :  p_len; 
var  answer  s  yesno; 
help_index  s  integer); 


var 


character  :  char; 
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begin  {  qyery_yn  > 
answer:=i_dunno; 

clear _b ox  <q) ;  wr i tech (cur sorof f ) 5 
goto_box (q ,0,0) ; 
i or  is  =  l  to  proept.l ength  do 
wr i tech (proept C i 1 ) ; 
goto_box (q ,0, 1 ) ; 

write! 'Please  Respond  Nith  Yes  or  No.'); 
repeat 

goto.box (q, proept .length, 8) ; 
character : =getkey ; 
case  character  of 


begin 

ansMer : =yes; 

write!*  Yes  ') 

end; 
begin 

answer : =no; 

write!'  No  ') 

end; 
begin 

answer : =i _dunno; 

write! '  I  Don ' ' t  Know ! ' ) ; 

help  (help.index ) 
end; 


end; 

until  (character*return) 5 
writech (cursoron) ; 
clear _box (q) ; 
end; 


begin 

{f NULLBODY} 
end. 
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program  query _numeric (i nput , output ) ; 

{  This  is  the  numeric  entry  portion  of  the  Query  Module  ) 
const 


1 ef tarrow 

' #08 ' ; 

{  Define 

arrow  keys  > 

rightarrow 

= 

' §09 ' ; 

uparrow 

9 

‘ V5B ' ; 

downarrom 

9 

' *0A ' ; 

cursor  left 

9 

'*18 ' ; 

{  Define 

cursor  motion  commands  } 

cursorright 

9 

•  19'; 

cursordown 

9 

*#1A ‘ ; 

cursorup 

9 

'•IB'; 

cursoron 

9 

'•BE'; 

cursorof f 

9 

‘ I0F ' ; 

ins 

= 

'•13'; 

{cntl  S> 

{  Define  Editing  Commands 

del 

S 

'•04'; 

{cntl  D> 

change 

= 

'•15'; 

(cntl  U> 

return 

= 

'  «0D  ; 

escape 

S 

'#03'; 

{cntl  Cl 

nul  1 

= 

'  *00  ; 

aa::_proapt 

s 

30; 

{  Maximum 

length  of  a  prompt  } 

max_num 

9 

10; 

{  Maximum 

length  of  a  number  } 

type 

{  Query  Type  Definitions  } 

unit  -  (mils,  inches,  mm,  scalar); 
prompt_string  *  packed  arrayCl. .max_prompt3  of  char; 
p_len  *  1. ,max_prompt; 
boxes  -  (q,  a,  h) ; 

{  Screen  I/O  Declarations  > 

procedure  goto_box(box  s  boxes;  x,y  :  integer);  external; 

procedure  clear_line(box  :  boxes;  y  :  integer);  external; 

procedure  clear.box (box  :  boxes);  external; 

procedure  writech(ch  :  char);  external; 

procedure  wait_key;  external; 

function  getkey  :  char;  external; 

procedure  help (help_index  :  integer);  external; 

procedure  querynum (prompt  :  pro»pt_string; 
pro»pt_length  :  p_len; 
min,  max  :  integer; 
var  answer  :  integer; 

units  :  unit; 
help_inde>,  :  integer); 
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var  range_vialation, 
hel p_request , 
unit_change  :  boolean; 

i  :  1 . . max _prorapt ; 
response,  djnin,  d_«ax  :  real; 

dumy  :  char; 

procedure  getnuaber; 

type  pos  =  l..aax_nua; 
var  character  :  char; 

point,  negative  :  boolean; 

nuaber_string  :  packed  arrayCl . .  aax_nun3  of  char; 
current_position, 
point_position,i  :  pos; 

procedure  show_nu«ber ; 
begin 

gotoJ>ox(q,current_position+prompt_length+l,0); 
for  i : =current_posi tion  to  max_nu«  do 
wr i tech (nu»ber_stringCi 3) ; 
goto_box (q,current_position+proapt_length+l ,0) ; 
end; 

procedure  signich  :  char); 
begin 

goto_box (q,pra«pt_length*l ,8) ; 
writech(ch) ; 

goto_box (q ,current_position+pro»pt_length+l ,8) 
end; 

procedure  add_digit; 
begin 

number _stringt cur rent _posi tion 3: character ; 
wr i tech (character ) ; 
if  currentjiosi ti on<«ax _nu# 

then  cur rent_posi tion: =curr ent_posi  tion  +  1 
else  writech (cursorleft) 

end ; 
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procedure  insert_digit; 
begin 

if  point 

then  it  point_position>scurrent_position 
then  begin 

point _positi on :=point_position+l; 
it  point_posi tion>aax_nu« 
then  point:=false 

end; 

it  current_position<max_nua 

then  tor  i:=aax_nu«  downto  current_posi ti on  + 1  do 
nueber _str i ngCi 1: =nuaber_st ri ng [ i - 1 ] ; 
nuaber_stringtcurrent_positionl!='  ' ; 
show_nuaber 
end ; 

procedure  delete_digit; 
begin 

it  point 

then  begin 

if  current_posi tion*point_posi tion 
then  point:=false; 
if  poi nt_positi on > cur rent .position 

then  point_posi tion: -point_position-l ; 

end; 

if  current_pasitian<aax_nua 

then  for  i : =current_position  to  max_nua-l  do 
number _str i ngti  3 :  ^nuaber.str ingC  i*  1  ] ; 
nuaber_str ing[aax_nual: » ' 
show_number 
end; 

procedure  convert; 
var  power  :  real; 
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procedure  get_int_part (position  :  pos); 
var  1  :  integer; 
begin 

power s  =  1 ; 

for  imposition  downto  1  do 

if (number_string[il>=‘0'  and 
number _stri ngti 3<  =  '9 ' ) 
then  begin 

response: =response+power* 

(ord < number _stri ngti 1 ) -ord ( '0' ) ) 
power  mpower*10 
end; 

end; 

procedure  get_f rac_part (posi ti on  :  pos); 
var  i  :  integer; 
begin 

power : =0. 1 ; 

for  imposition  to  max_num  do 

if  <number_str ing ti 3 >= '0 '  and 
number _st r i ng  Ci 3<  =  '9 ' ) 
then  begin 

responsemresponse+power* 

(ord <nuober_stri ngti 3 ) -ord ( '0 ' ) ) 
power  mpower/10 
end; 

end; 

begin  t  convert  } 
response:=0. 0; 
if  not  point 

then  get_int_par t (max_nu«) 
else  begin 

if  point _positi on >1 

then  get_int_part(point_position-l); 
if  point_position<max_nua 

then  get_frac_part(point_position+l) 

end; 
if  negative 

then  r esponsemr esponse*  ( - 1 ) ; 
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begin  {  getnuaber  } 
current_position:=l; 

■for  i :  =  1  to  max_nu«  do  nuaber_str i ng ti 1 : = ' 
sho*_nuaber ; 

help_request: =f al se;  uni t_change: =f al se;  point:=f alse; 

negati ve: =f al se; 

repeat 

character : =get key ; 
case  character  of 

'0  VI  V2  V3V4-, 

*5 V7  V8  V9',  V  « 

begin 

if  (point  and  (current_position=point_position) ) 
then  point: =false; 
add.digit 
end; 

' .  '  :  if  not  point 
then  begin 

point_position:=current_position; 
add_digit;  point:=true 
end; 

:  begin 

negati ve: =true; 
sign  ( ' ) 
end; 

:  begin 

negative:=false; 
si gn  ( '  ' ) 
end; 

'?'  :  help_request: =true; 
ins  :  insert_digit; 
del  :  delete_digit; 
change  :  unit_change: =true; 
leftarrow  :  if  current_position>l 
then  begin 

current _positi on: =current_positi on- 1; 
writech (curs or  left) 
end; 

rightarrow  :  if  curr ent_posi tion<max_num 
then  begin 

curr ent_posi tion: =curr ent_posi t l on+1 ; 
wr i t ech (cursorr i ght ) 
end; 

return  :  convert; 
end  {  case  } 

until  (char acter=return  or  character ' ? '  or  character=change) ; 
end;  '  getnuaber  } 
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function  to_i nches (ai  1  s  :  integer):  real; 
begin  to_inches:=«ils/1000.0  end; 

function  to_aa(ails  :  integer):  real; 
begin  to_aa:=to_inches<mils)*25.4  end; 

begin  {  querynua  } 
clear_box (q) ; 
repeat 

range_violation:=f alse; 
clear_l ine (q ,0) ; 

for  i:=l  to  proapt_l ength  do  writech (proraptti 3) ; 
for  i:=l  to  aax_nua  do  writech<*  '); 
case  units  of 
inches:  begin 

write(*  inches  '); 
d_ain:=to_inches(min); 
d_aax :=to_inches(aax); 
clear_line(q,l) ; 

write( 'Range:  ' ,d_ain: 7: 3, '  to  ',d 
end; 

na:  begin 

Mrite('  ai 1 1 iaeters ' ) ; 
d_ain:=to_a«<min) ; 
d_aax : =to_na (max ) ; 
cl  ear _1 ine  (q  ,  1 ) ; 

write ( 'Range:  ' ,d_ain:7:3, '  to  ',d 
end; 

ails:  begin 

wri te  (  '  ails  ' ) ; 

d_ain:=ain;  d_aax:*aax; 
cl  ear _1 i ne (q  ,  1 ) ; 

write ( 'Range:  ' ,d_rain:6:0,  '  to  ,d 
end; 

scalar:  begin 

d_«in:=min;  d  jnax : =max ; 
clear_l ine (q , 1 ) ; 

write ( 'Range:  ',d  min:6:0,'  to  ’,d 


to  ',d_max:7:3) 


to  ’,d_aax:7:3) 


to  ' ,d_aax:6:0) 


to  ’ ,d  aax:6:0) 
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getnuaber ; 
if  unit_change 

then  case  units  of 

scalar:  uni ts: =scal ar ; 

nils:  units:=inches; 
inches:  units:=am; 
am:  units: =mi Is; 
end; 

if  help_request 

then  help(help_index) ; 
if  (not  (unit_change  or  help_request) 

and  (response<d_«i n  or  response>d_sax ) ) 
then  begin 

clear_line(q,2) ; 

wr  i  te  (' Response  not  within  range.  Press  any  key  to  cont 

inue ' ) ; 

wait_key; 
clear_l ine (q ,2) ; 
range_viol at ion: =true 
end; 

until  (not  (help_request  or  range_vi ol ation  or  unit_change) ) ; 
case  units  of 

mils, scalar  :  answer : =round (response) ; 

inches  :  answer : =round (response*1000! ; 

aa  :  answer : =round (response* 1 000/2 . 54 ) ; 

end; 

cl ear_box (q) ; 
end; 


-gi  n 
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program  query_str i ng ; 

{  This  is  the  string  entry  portion  of  the  query  module.  } 
const 


1 ef tarrow 

= 

'#08'; 

{  Define 

arrow  keys  ) 

r ightarrow 

= 

'#09'; 

uparrow 

= 

'#58 ' ; 

downar r ow 

= 

'  #0A ' ; 

cursorlef t 

= 

'#18'; 

{  Define 

cursor  motion  commands  } 

cursorright 

= 

'#19'; 

cursordown 

= 

'  #1 A ' ; 

cursorup 

= 

'#1B ' ; 

cursoron 

S 

' #0E ' ; 

cursorof f 

- 

' I0F ' ; 

ins 

= 

'#13'; 

fcntl  SI 

C  Define  Editing  Commands  1 

del 

= 

'#04' ; 

£cntl  D) 

return 

= 

' #0D  ' ; 

escape 

= 

'#03' ; 

{cntl  c: 

null 

= 

'#00'; 

max_prompt 

= 

30; 

{  Maximum 

length  of  a  prompt  > 

max_str 

= 

30; 

{  Maximum 

length  of  a  string  ) 

type 

{  Query  Type  Definitions  } 

prompt_str ing  =  packed  arraytl . . max_proapt 1  of  char; 
p_len  *  l . . aax_prompt ; 
position  =  l..«ax_str; 
string_case  =  (upper,  lower,  none); 
char_string  =  packed  ar r ay C 1 . . max _str ]  of  char; 
boxes  =  (q ,  n,  h) ; 

{  Screen  I/O  Declarations  } 

procedure  goto_box(box  :  boxes;  x,y  :  integer);  external; 
procedure  cl ear_box (box  s  boxes);  external; 
procedure  writech(ch  :  char);  external; 
function  getkey  :  char;  external; 


procedure  hel p (hel p_i ndex 


integer);  external; 


procedure  querystr (prompt 
prompt_l  ength 
ffi  i  n  y  Ridii 
var  answer 
var  str ing_length 
make_case 
he  1 p_i ndex 


prompt_string; 
p_l en ; 
position; 
char _str i ng ; 
posi ti on; 
string _case; 
integer! ; 


var  help_request  :  boolean; 

j  :  p_len; 
i  :  position; 


procedure  getstring; 
var  character  :  char; 
i.  current_posi tion  :  position; 
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procedure  redisplay; 
var  i  :  position; 
begin 

goto_box(q,proopt_length+current_position,0); 

•for  i : =current_position  to  string_length  do 
Mr i tech (ansNer  til); 
if  string_length<«ax 

then  for  is=string_length+l  to  max  do 
Mritech 

goto_box(q,pro«pt_length+current_position,0); 

end; 

procedure  insert_char; 
var  i  :  position; 
begin 

if  ( (cur r ent_posi t i on  <  max)  and 

(string_length>=current_position)) 
then  begin 

for  i:=«ax  doMnto  current_posi tion+1  do 
an suer Ci ] : =answer C 1 - 1 ] ; 
if  str i ng_l ength<aax 

then  string _length:=string_length+l; 
answer C cur rent_posi ti on] : = ' 
redisplay 


procedure  delete_char; 
var  i  :  position; 
begin 

if  ( (current_position  <max)  and 

(string_length>=current_position)) 
then  begin 

for  i: =current_position  to  max-1  do 
answer[i]:=answer(i+13; 
string _iength:=string_length-l; 
answer [max  3 :  = ' 
redi spl ay 
end; 

if  current_posi  ti  on  =  aa:<  and  string_length=ma>: 
then  begin 

string_length:=string_length-l; 
answer [max  3 :  =  '  '; 
writechf writechicursorleft/ 
end; 

end ; 

procedure  move_left; 
begin 

if  curr ent_posi t i on >1 
then  begin 


W^VjV.V.VV, 


an 


•j«  *  •  ’ »  ’  •  *  ■ 1  .  *  •  •  *  •»  *  j,  *ji  •  •  •  *ji  •  • 
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current_position:=current_position-l; 

writech(cursorleft); 

end; 

end; 

procedure  «ove_right; 
begin 

if  current_posi tion<max 
then  begin 

cur r ent _posi t ion: =cur rent _posi ti  on  +  1 ; 
wr itech (cursorr lght) ; 
end; 

end; 

procedure  add_char; 
begin 

if  string _length<current_position 

then  string _length:=current_position; 
answer C cur rent _posi tionl:=character; 
wr i tech (character ) ; 
if  current_position<*ax 

then  current_position: =cur rent _positi  on  +  1 
else  writech (cursorlef t) ; 

end; 

begin  {  getstring  > 

gato_box(q,pra«ipt_length  +  l,0); 
if  max>eax_str  then  max  :  =  max  _str ; 
current_position:=l; 
string_length: =0; 

for  i:=l  to  «ax_str  do  answer£iJ:='  '; 

help_request: =f alse; 

repeat 

character : =get key; 
case  character  of 

ins  :  insert_char; 
del  :  delete_char; 
leftarrow  :  isove_left; 
rightarrow  :  move_right; 

return  :  if  str 1 ng_l ength< mi n 

then  character : =nul 1 ; 

'?'  :  help_request:=true; 

end; 

if  character^’  '  and  char  acterOchr  ( 127) 
then  add_char; 

until  ( (char acter=r eturn )  or  hel p_r equest ) ; 
end ; 

procedure  make_upper; 
var  i  :  position; 
begin 


QueryStr  Module 


if  answerCi]  >=  'a'  and  answerCi]  <-  z' 

then  answer t i 1:  =chr (ord (answer t i 3  > -ord  <  a  ' ) *ord  < ' A  ' ) i ; 

end; 

procedure  make_lower; 
var  i  :  position; 
begin 

•for  i:=l  to  sax  do 

if  answerCi]  >=  'A'  and  answerCi]  <=  '2' 

then  answer  Ci].*=chr(ord(answerCi])  -ord  (  '  A  ' )  +ord  <  '  a ' ) ) ; 

end; 

begin  {  querystr  } 
clear_box (q) ; 
repeat 

goto_box (q ,0,0) ; 

for  j:=l  to  prompt_l ength  do  wr i tech  i prompt C j ]) ; 
writech('  '); 

for  i:=l  to  eax  do  wr i tech ( ' ; 
goto_box  <q ,0, 1 ) ; 

writef 'Response  eust  be  between  ',nin:2,  '  and  ',»ax:2,'  character 

s'); 

getstr inq; 

if  help_requesi  then  help (help_index ) ; 
until  not  help_request; 
case  aake_case  of 

upper  :  »ake_upper; 
lower  :  »ake_lower; 

end; 

c 1  ear _box (q ) ; 
end ; 

begin 

{tNULLBODY) 
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(fwidel i st) 

{#****•****#*******•»■***•»*•*•***###•***«**•*■***«****•*•*■»**********■**»*) 
(*  Operating  System  Dependent  File  Operations  *) 

{**••«#•«*••#******«**«#«**•*««•***•«**#****#«***«•**«****«**«*) 
program  dos_file; 

const  doscendi  =  #4405;  (Address  of  D05PLUS  Command  interpreter) 
dosrun  =  #4433;  (Address  of  DOSPLUS  Run  File  Routine) 
return  =  '#0D'; 

type  byte  s  0..2S5; 

filespec  =  arrayC1..123  of  char; 
dr i ve_i d  =  0. . 1 ; 

(The  procedure  call#  is  used  to  call  assembly  language  routines) 
procedure  cal  1  $ < address  :  integer;  var  a, status  :  byte; 
var  be ,de ,hl , i x , i y  s  integer);  external; 

(See  the  Disk  ID  module  for  details  on  the  following  ) 
procedure  switchdisk (drive  :  drive_id;  disk_id  :  integer); 
external ; 


{****«**«*****•** ******************* ******* it*****#***********#*) 

(*  Procedure  :  Kill _F i 1 e  *) 
(*  Parameters  :  Drive,  Disk_ID,  File_Na«e  *) 
{*  Entry  Conditions  :  The  parameters  identify  the  file  to  be  t) 
(*  wiped  out.  *) 
{**************■»•******■»***■»•■****■#*****■**■»•»*****#*•»**#****•**■»#*##) 


procedure  ki 1 1 _f i 1 e (dr i ve  :  drive_id;  disk_id  :  integer; 

file_name  :  filespec); 
array(1..18]  of  char;  (  Text  of  Command  } 

integer;  {  Address  of  Command  ) 

1..12;  (  Character  pointer  ) 

byte;  (  Dummy  Byte  ) 

integer;  {  Dummy  Word  ) 


var  command 
cmndaddr 
ch 
db 
dw 


begin 

switchdisk  (drive, disk _id); 
command: = 'KILL  '; 

(  insert  File_Name  after  the  word  KILL’  in  the  command  ) 
for  ch:=l  to  12  do  commandCcht53 : =f i 1 e_name(ch 3 ; 
command! 183 : =return;  cmndaddr:=locati on (command): 
call#(doscmndi,db,db,dw,dw, cmndaddr, dw,dw); 
end; 


I******************************* Of****************************} 

(*  Procedure  :  Run_File  -  Execute  a  program  *) 

(*  Parameters  :  File_Name,  Drive,  Disk_ID  *) 

(*  Entry  Conditions  :  The  parameters  identify  an  executable  *) 
(*  program  that  is  to  be  run.  Control  will  not  return!!!!1  *) 
I#*###*##***#*#*#********#*************#******************#****) 
procedure  run_f i 1 e <f i 1 e_name  :  filespec;  drive  :  drive_id; 

disk_id  :  integer); 

var  dcb_addr  :  integer;  {  Address  of  File  DCE  ) 
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deb  s  arravC1..3C3  oF  char;  :  File  Control  Bloc!  > 

eh  :  1..12;  •  Cnaracter  Counter  3 

db  :  bvte;  '  Bun*  6\te  1 

om  :  integer;  .  But*.  V;=-3  1 

begin 

switchdisk (drive.  disF_id); 

For  c h :  =  1  to  12  do  dcb[chJ:*File_na«e[cM; 

deb  C 133 s =return ; 

dcb_addr : = location (deb) ; 

ealll(dosrun,db,db,dw,dcb_addr,dN,dM,dw); 

end; 

begin 

{fnullbody} 
end . 
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{fWIDELIST} 
program  diskid; 

const  max_prompt  =  30;  f  Maximum  length  or  a  prompt  ; 

max_str  =  30;  {  Maximum  length  of  a  string  J 


type 

{  Query  Type  Definitions  ) 

prompt_string  =  packed  array  Cl . . «ax_prompt 3  of  char; 
p_len  =  1 . . max_prompt; 
yesno  =  (yes,  no,  i_dunno); 
boxes  =  (q ,  m,  h) ; 

{  File  Access  Type  Definitions  ) 

drive_id  =  0..1;  {  or  (A,  B)  } 
id_nu«  =  file  of  integer; 
byte  =  0. . 255; 

{  Screen  I/O  Declarations  } 

procedure  dear_line(box  s  boxes;  y  :  integer);  external; 
procedure  wait_key;  external; 

{  Query  Declarations  } 

procedure  query_yn (prompt  ;  prompt_str ing; 
prompt_length  ;  p_len; 
var  answer  :  yesno; 
help_index  s  integer);  external; 

procedure  setacn«(var  id_f i 1 e; i d_nu»;  spec ; str i ng ) ;  external 
procedure  i olerror (newstate  :  boolean; 

var  oldstate  :  boolean);  external; 
function  f i 1 e*status ( var  f:id_num)  ;  byte;  external; 

procedure  set_id(drive  s  drive_id;  var  id_file  :  id_num); 
begin 

case  drive  of 

0  ;  setacnm (i d_f i 1 e ,bldstr ( ' di sk/i d: 0  ' ) ) ; 

1  :  setacnm (i d_fi 1 e,bl dstr (' di sk/i d:  1 ')) ; 
otherwise  setacnm (id_file,bldstr('disk/id:l’>); 
end ; 
end ; 

function  whichdisk  (drive  :  dnve_id)  ;  integer; 
var  id_file  :  id_num; 

id  :  integer; 
old  :  boolean; 
d  :  yesno; 
status  :  byte; 

begin  C  whichdisk  ) 
ioferror (false, old) ; 
set_id(drive,id_file); 
repeat 
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reset(id_file);  status:=file$status(id_file); 
if  status-8 
then  begin 

read ( i d  _f i 1 e , 1 d ) ; 
status:=file*status(id_file); 
end; 

if  status=0  then  whichdisfc:=id; 
if  status=8 
then  repeat 

query_yn<  Have  you  put  a  disk  in  yet?  ',27,d,21); 
until  d=yes; 

if  status=24  then  whichdisks =0; 
until  statusOS; 
closetid_f i le) ; 
end; 

procedure  i d_di  sk  (dr i  ve:  dr i  ve_i  d ;  di sk_num: i nteger ) ; 
var  i d_f i 1 e  :  id_num; 
begin 

set _id (drive, id_fi le) ; 
rewrite(id_f ile) ; 

**rite(id_f  ile,disk_nu«) ; 
close(id_f ile) ; 
end; 

procedure  swi tchdi sk (dr i ve  ;  drive_id;  disk_id  :  integer); 
var  answer  :  yesno; 

id  :  integer; 

procedure  close_al 1 (dr i ve  :  drive_id);  external; 

begin  {  switchdisk  } 
id:=whichdisk (drive) ; 
if  id<>disk_id 
then  begin 

close_al l (drive) ; 
repeat 

clear_l ine(q,-l) ; 

write* ' Insert  disk  number di sk  i d : 3 ,  '  into  drive  drive 
i); 

repeat 

query_yn (' Ready  to  Go?  ',12, 

answer , 100) ; 
until  answer=yes; 
cl ear_l i ne (q  ,- 1 ) ; 
id:=whichdisk  (drive); 
if  idOdisk_id 
then  begin 

writet'This  is  disk  number l d :  3 ,' ,  not  ',disk_id 
3) ; 

write('!  Press  any  key.');  wait_kev; 
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until  id=disk_id; 
end; 

end; 

procedure  new_disk ( d i s k _i d  :  integer); 
var  answer  :  yesno; 
begin 

clear_line(q,-l) ; 

writeC'Put  a  blank  foraatted  disk  into  drive  1'); 
repeat 

query_yn ( ' Are  you  ready?  ',14, answer 

until  answer=yes  and  whichdisk ( 1 ) =0; 
id_disk ( 1 ,di sk_i  d) ; 
cl ear_l ine (q ,-i ) ; 

writeT'Label  this  disk  as  Disk  ##  ' ,disk_id:3) ; 
repeat 

query_yn < ' Have  vou  labelled  it  yet?  ,25, answer 

until  answer-yes; 
cl ear_l i ne (q , -1 ) ; 
end; 


begin 

UNULLBODY) 
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{IWIDELIST} 

{***•**«*********«**•*********»***********»*************•**#*•*} 


{*  File  Access  Module  -  Controls  access  to  all  files  *} 
{*  *•#*•*«##**•««•*•#****»•**•*•*•****««****#«*«*•*******«***«*} 
( *  All  system  files  are  maintained  as  two  doubly-linked  *} 
£*  circular  lists.  One  list  contains  all  of  the  allocated  «> 
£*  records  in  the  file,  and  the  other  contains  all  of  the  *} 
£*  free  records.  Every  record  in  the  file  must  belong  to  one  *> 
£*  of  these  lists.  FNon  linked  files  are  also  supported.  *} 
{*  For  maximum  portability,  the  maximum  record  length  is  128  *> 
{*  bytes.  *} 


{»*«»»***»**»•»*»»**»•»*»«•*••••*••*•»*••«***•***«•*•«***••#«**} 

program  file_access; 

const 

end_of_list  =  -1;  {  Indicates  End  of  Linked  List  } 

max_open  =  10;  {  Maximum  number  of  open  files  '■ 

max_rec_si ze  =  128;  £  Maximum  Record  Size  > 

max_buffs  =2:  {  Number  of  simultaneously  open  files  > 

type 

£  File  Access  Type  Definitions  } 

drive_id  =  0..1;  {  or  (A,  B)  } 
filespec  =  packed  arraytl..l2]  of  char; 
whichfile  =  l..max_open; 
links  =  record 

next  s  integer;  {  Record  Number  of  next  1 
prev  :  integer;  {  Record  Number  of  Last  ) 
end; 

max_rec  =  record 

case  boolean  of 

true  :  (data  :  arrayCl . .  max_rec_size]  of  char); 

false:  (link  :  links); 

end; 

data_file  =  file  of  max_rec; 
file_desc  =  record 

fs  :  string;  £  File  Name  } 
linked  :  boolean; 
drive  :  drive_id; 
on_line  :  boolean; 
rec_len,  {  Record  Length  } 
disk_id,  £  Diskette  containing  file  } 
status,  £  System  Dependent  File  Status  } 

first,  (  Record  Number  of  First  Entry  } 

ne::t_free,  £  Record  Number  of  Free  List  '■ 

recs_avail,  C  Number  of  Unused  Records  } 

next_read,  £  Next  to  be  Read  } 
last_read,  £  Last  Record  Accessed  } 

buf_num  :  0. . ma: _buf f s ; l  Current  Buffer  NUmfcer  } 
end ; 

where  =  record 

linked  :  boolean; 
file  name  :  f  i  lespec; 


ad 
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drive  :  drive_id; 
di sk_i d , 
rec_l en , 
recs_avai 1 , 
f i  r  st , 

■free  :  integer; 
end; 


{  Global  Arrays  containing  all  required  File  Information  > 


common  Hies  ;  arraytwhichf  i  lei  of  file_desc; 

P_buff  :  array [1 . . max_buf f s 3  of  data_file; 
P_slot  :  arrayt 1 . . max_buf f s3  of  byte; 


next_l  :  byte; 
buffer  :  max  rec; 


[  System  Dependent  Random  Access  File  Routines  } 
procedure  openrand(var  f:data_file;  recordlent integer ; 

pathname: string;  var  status: integer) ;  external; 
procedure  readrandivar  f:data_file;  recordnum: l nteger ; 

var  dat:max_rec;  var  status: integer ) ;  external; 
procedure  wr i ter  and (var  f:data_file;  recordnum: integer ; 

var  dat:max_rec;  var  status: integer ) ;  external; 
procedure  closerand ( var  f : data_f i 1 e) ;  external; 


procedure  f read (f i 1 e_num  :  whichfiie;  rec_nue  :  integer; 

var  buffer  :  maxjrec;  linkonly  :  boolean); 


var  teap_buff  :  *ax_rec; 
begin 

with  f i lestf i le_num3  do 
begin 

if  linkonly 
then  begin 

readr and (P _b uf fCbuf_n um3, rec _nus, temp _buff, status); 

buf f er . 1  ink: =temp_buf  f . I  ink; 

end 

else  readr and ( P _buffCbuf_num 3, rec _nu«, temp _buff, status); 

end; 
end ; 


procedure  f wr l te (f i 1 e_num  :  whichfile;  rec_num  :  integer; 

var  buffer  :  max_rec;  linkonly  :  boolean); 


var  tesip_buff  :  max_rec; 
begin 

with  f i 1 esCf i le_num3  do 
begin 

i f  1  inkonl y 
then  begin 

readrand(P_buffCbuf_nu*3,rec_num,temp_buff, status); 
temp_buff. link: =buffer. link; 

wr i terand ( P _b uf f Cbuf _num 3, rec _num, temp _buff, status): 


tVXr 
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end 

else  wr it erend(P_buffCbuf_nu»l,rec_n urn, buffer, status) 

end; 

end; 

{  See  the  Disk  ID  Nodule  for  details  on  the  following  } 
procedure  switchdisk (drive  :  drive_id; 

diskid  :  integer);  external; 

{44444444444444444444444444444444444444444444444444444444444444} 


{*  Procedure  :  StateF  -  Deteraine  Current  Pointer  Values  *) 
{4  Parameters  :  File_Num,  First,  Free  *1 
{4  Entry  Conditions  :  File_Nua  identifies  the  file  to  be  *} 
{4  looked  at.  *} 


{*  Exit  Conditions  :  The  current  values  of  the  heads  of  the  *} 

£*  allocated  and  free  lists  are  assigned  to  First  and  Free.  *> 

{44444444444444444444444444444444444444444444444444444444444444} 

procedure  statef (f ile_num:whichfile;  var  first, free  :  integer); 
access  files;  {  Global  Array  } 
begin 

first:=filesCfile_nua3.first; 
f rees  =f i lesCf i le_nu«3 . next_f ree; 
end; 

{44444444444444444444444444444444444444444444444444444444444444} 

{4  Function  s  RaomF  -  How  much  Room  is  Left  in  the  File?  *> 

{4  Paraaeters  :  File_Nua  *} 

(4  Result  :  Number  of  Unallocated  Records  in  the  file  *} 

{44444444444444444444444444444444444444444444444444444444444444} 

function  rooaf (f i le_nua  ;  whichfile)  ;  integer; 
access  files; 
begin 

roomf:=files[file_num].recs_avail; 

end; 

{44444444444444444444444444444444444444444444444444444444444444} 


{*  Procedure  :  ResetF  -  Set  pointers  to  the  top  of  the  file  *> 
{4  Paraaeters  ;  File_Nua  *} 
(4  Process  :  The  file  pointers  Next_Read  and  Last_Read  are  *} 
{*  set  to  the  first  allocated  record  in  the  file.  Any  file  *} 
{4  access  after  a  resetf  will  access  the  first  record.  «} 


{44444444444444444444444444444444444444444444444444444444444444} 

procedure  resetf (fi le_num  :  whichfile); 
access  files; 
begin 

with  f i 1 esCf i 1 e_num]  do 
if  linked 
then  begin 

last_r ead: =f i rst ; 
next_reads=f irst; 
end 

else  next  read:=0: 
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end; 

{444444444444444444444444444444444444444444444444444444444444443 


{*  Procedure  :  InitF  -  Initialize  a  slot  m  tne  Files  array  */ 
C*  Parameters  :  File_Num,  File_Loc  «3 
{*  Entry  Conditions  :  File_Nua  identifies  the  slot  to  be  *3 
{*  initialized,  and  File_loc  contains  the  initialization  *3 
{*  parameters.  *3 
{*  Process  :  The  File_Nu#  slot  will  be  loaded  with  File_Loc  *3 
{*  and  the  file  will  be  set  to  off_line  status.  The  file  *3 
{*  will  then  be  reset  to  the  first  record.  *3 


{444444444444444444444444444444444444444444444444444444444444443 

procedure  initf (f ile_nu«  :  whichfile;  file_loc  :  where); 
access  files; 
begin 

with  f i leslf i le_nura]  do 
begin 

C  System  Dependent  String  Manipulation  Below!  3 
{  TRS-80  Strings  are  manitained  on  the  heap.  To  recover 
tne  memory  they  use,  they  must  be  Disposed  before  new 
values  are  assigned  to  them.  Bldstr  just  converts  a 
literal  or  character  array  into  a  string  on  the  heap.  3 
if  fsOnil  then  dispose(fs); 
fs:=bldstr(fil e_l oc. f i le_name) ; 

{  Copy  the  rest  of  File_Loc  to  slot  File_Nu*  3 

1  inked: «f i le_loc. linked; 

disk_i d: =f i le_loc. disk_id; 

drive: =file_loc. drive; 

rec_len:=f i 1 e_l oc . rec_l en ; 

recs_avai 1 : =f i 1 e_loc . recs_avai 1 ; 

first:=file_loc. first; 

next_free:=fi le_loc .free; 

{  Set  file  off-line  > 
on_I ine:=false; 
end; 

resetf (f i 1 e_num) ; 
end; 

{444444444«4444444444444444444444444444444444444444444444444444} 

1*  Procedure  :  Init_Files  -Onetime  Files  Array  Initialization  *3 
{*  Process  :  Sets  ALL  file  slots  off-line  so  that  a  Close_All  *3 
{*  operation  (See  Below)  will  not  attempt  to  close  file  slots  *3 
{*  that  were  never  initialized.  Should  only  be  called  once.  *3 

{44444444444444444444444444444444444444444444444444444444444444; 

procedure  init_files; 
access  files,::; 
var  i  :  1 . . max_open ; 
begin 

for  i:=l  to  max_open  do 
with  f il esCi 3  do 
begin 

on_l i ne: =f  al  se; 
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f s:=ni 1 ; 
end; 

for  i:=l  to  max_buffs  do  P_sl ot C i 3 : =0; 
next_l s  =  1 ; 
end; 

{*«******************##******************#******«**************) 
{*  Procedure  :  CloseF  -  Close  Random  Access  File  *3 

{*  Paraeaters  :  File_Num  *3 

{*  Process  :  The  file  in  slot  File_Num  is  closed  and  the  On-  *3 
{*  Line  flag  is  reset.  If  already  off-line,  nothing  is  none.  *3 

{**ft#»*«*t#**********«*t»»*********»*****ft*#*»****»*«»*******«*} 

procedure  closef (f i le_nua  :  whichfile); 
access  files; 
begin 

with  f ilestf i le_numl  da 
begin 

if  on_line 
then  begin 

c  laser  and (P_buff tbufjiuml) ; 
on_l ine: =f alse; 

P_slatIbuf_num]:=0;  {  Release  the  buffer  } 
end; 

end; 

end; 

;«»*»*«***•**«*««#**»*#*#•••**•*•*•**•«*«**«*****••************} 


{*  Procedure  :  OpenF  -  Open  file  for  reading  or  writing  *3 
{*  Parameters  :  File_Nua  *3 
{*  Process  :  The  file  in  slot  File_Num  is  brought  on-line.  *3 
{*  If  the  file  is  already  On-Line,  then  nothing  need  be  done.  «3 
{*  If,  however,  the  file  is  off-line,  then  the  diskette  *3 
{*  containing  the  file  must  be  mounted,  the  system  dependent  *3 
{•  association  between  logical  and  physical  files  must  be  made*3 
{*  and  the  file  opened  for  random  access.  *3 


{«#•***•*•«##**«******#*»****»****#*»**«****»»»**•*»**«**•»***•) 
procedure  openf (f i le_num  s  whichfile); 
access  files; 
var  i  :  integer; 
beg  i  n 

with  f i lesCf i le_num3  do 
if  not  on_line  then 
begin 

I  flake  sure  the  right  disk:  is  present  J 
switchdisk (drive, disk _id); 

{  Look  for  an  available  buffer  3 

buf_num:=0;  i:=l; 

repeat 

if  P_slot[il=0  then  buf_num:=i; 
i : =i +1 ; 

unti 1 ( (i >max_buf f s)  or  (buf _nu«K  >0) ) ; 

I  If  one  isn't  available,  free  one  up.  3 
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if  buf _nu»=0 
then  begin 

cl  osef (P_sl ot tnext_l 3 ) ; 
buf  _num: =nex t_l ; 
next_i:=next_i+l; 

if  next_l >max_buf f s  then  next_l:  =  l; 
end; 

{  Reserve  the  buffer  for  this  slot  1 
P_slottbuf_num3:=file_num; 

{  Open  the  file  } 

{  Alcor  Pascal  requires  non-simple  files  to  be  initialized 
before  they  can  be  accessed.  The  ::  is  a  type  transfer 
operator  that  tells  the  compiler  to  treat  the  variable  as  if 
it  was  of  the  specified  type,  integer  in  this  case.  } 

P_buf f Cbuf _numl: :integer:=B; 

{  System  Dependent  Random  Access  File  Open  3 
open  rand (P_buf f (buf _num],rec_len,fs, status) ; 
on_line:=true; 
end ; 

end; 

{•*****«***•*«••***«*•*•*«**•*******•*•*»«*••***•**•***•*******} 
{*  Procedure  :  Close_All  -  Close  all  files  on  a  drive  *3 

{*  Parameters  s  Drive  *> 

t*  Entry  Conditions  :  Drive  indicates  which  drive  is  to  have  *3 
{*  all  of  its  open  files  closed.  *) 

{*  Process  :  This  routine  is  called  prior  to  removal  of  a  disk*} 
t*  from  a  drive  to  ensure  file  integrity.  Each  slot  in  Files*) 
{*  is  checked  to  see  if  the  drive  matches.  If  it'does,  the  *3 
{*  file  is  closed.  *} 

{«****#** ft************************************* *««*****«« •****«} 

procedure  cl ose_al 1 (dr i ve  :  drive_id); 
access  files; 
var  fx  :  whichfile; 
begin 

for  fx:=l  to  max_open  do 

if  f  i  lest  f  x  3 .  dr  i  ve=dr  i  ve  then  closef(f.x) 

end; 


{*  Procedure  :  ReadF  -  Read  the  Next  Record  *3 
{*  Parameters  :  File_Num,  Buffer,  EOLF  *} 
(*  Entry  Conditions  ;  File_Num  identifies  to  file  to  read.  *3 
{*  Next_Read  contains  the  record  number  of  the  next  record  tc  *3 
(*  be  accessed.  *> 
(♦  Exit  Conditions  :  Buffer  contains  the  record  read,  and  *3 
t*  Next_Read  and  Last_Read  will  be  updated  accordingly,  unless*} 
{*  an  end  of  file  condition  was  detected.  In  this  case,  the  *3 
{*  Buffer  will  not  be  modified  and  EOLF  will  be  set.  *3 


procedure  r eadf (f i 1 e_num  :  whichfile;  var  buffer  :  links; 
var  eolf  ;  boolean); 
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access  files; 
var  link  :  links; 
begin 

openf (f  i 1 e_nu«) ; 
with  f i 1 esCf i 1 e_numl  do 
if  linked 
then  begin 

i  Check  for  end  of  list  condition  } 
if  ( (next_read=f irst)  and  (1  ast_r ead< >f irst) )  or 
!next_read=end_of_list) 
then  eolf:=true 
else  begin 

f  read  (f  i  le_num,next_read  ,buf  f  er  ,f  alse) ; 

1 ast_read:=next_read; 
next _re ad :=buffer. link. next; 
if  1 ast_r ead=next_r ead 

{  There  is  only  one  record  1 
then  eolf:=true 
else  eolf:=false; 
end; 

end 

else  begin 

f read (f i le_nus, next _r ead , buffer , false) ; 

next_read:=next_read+l; 

if  status=0 

then  eolf:=false 
else  eolf:*true; 

end; 

end;  {  readf  ) 


{*  Procedure  :  WriteF  -  Update  the  Last_Record  accessed  ♦} 
{*  Parameters  :  File_Num,  Buffer,  MriteOK  *) 
{*  Entry  Conditions  :  File_Num  identifies  the  file  to  write  *> 
{*  to.  Buffer  contains  the  information  to  be  written.  Last_  »} 
{*  Read  is  the  record  number  to  be  written  to.  *1 
{*  Exit  Conditions  :  Buff  will  have  been  written  to  the  file.  *} 
{*  No  re-positioning  will  occur,  so  successive  writes  will  *> 
{*  over-write  the  same  record.  WriteOK  will  be  TRUE  if  there  *) 
{*  were  no  write  errors.  *> 


{*##*********#************#*#*****###***#********#*##**********} 
procedure  wr i tef (f i l e_num  :  whichfile;  var  buffer  :  links; 
var  writeok  :  boolean); 

access  files; 
begin 

openf (f i  1  e_num) ; 
with  f i 1 est f i 1 e_numl  oo 
if  linked 

then  if  1 ast _read<>end_of _1 l st 
then  begin 

writeok:=true; 

fread(file_num, last _r ead, buffer, true) 
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fwrite(file_n urn, last _read, buffer, false) 
end ; 

else  wr i teok : =f al se 
else  begin 

fwrite(file_nuffl,next_read, buffer, false); 

next_read:=next_read+l; 

if  status=8 

then  wr iteoks=true 
else  wri teok: =f al se; 

end; 

end;  £  writef  ! 

{t****************#********************************************} 

£*  Function  :  Del_Rec  -  Delete  a  record  from  one  of  the  lists  *> 

{*  Parameters  :  File_Nu®,  Pointer  *! 

£*  Result  :  Record  number  of  deleted  record  *! 

£*  Entry  Conditions  :  File_Num.  indicates  file  to  use,  Pointer  *1 
£*  is  the  record  number  to  be  deleted.  *! 

£*  Exit  Conditions  :  The  record  will  be  deleted  from  the  list  *! 

£*  and  pointer  will  be  set  to  the  the  next  record  in  the  list.*! 
{***»**»****#**«*•••**•*«******»#**••«*******•«*****«******«*««} 
function  del _rec (f i le_nu*  :  whichfile; 

var  pointer  :  integer)  :  integer; 
access  files; 
var  link  :  links; 
begin 

openf (f i le_num) ; 

with  f i 1 esCf i 1 e_nu*l  do 

begin 

del _rec : =poi nter ; 

£  Read  the  Next  and  Previous  Record  numbers  ! 
fread(file_n urn, pointer, buffer, true); 

1 i nk : =buf f er . 1 i nk ; 

if  link.next=pointer  £  It's  the  last  record  ! 
then  pointer : =end_of _iist 
else  begin 

{  Make  the  Next  record  the  new  Current  record  ! 
pointer : =1  ink . nex  t; 

£  Delete  the  record  from  the  forward  list  } 
fread(file_n urn, link.prev, buffer, true); 
buffer. link.nexts=link. next; 
fwrite(file_num, link.prev, buffer,  true); 

£  Delete  the  record  from  the  backward  list  > 
fread(file_n urn, link. next, buffer, true); 
buffer. lini.prev:slink.prev; 
fwrite(file_num, link. next, buffer,  true); 
end ; 

end;  C  with 
end;  £  del  r ec  > 

{*****«*#**«**«****•#******«***«***»«*#***«*•*****»*•#*«**«»«**} 

£*  Procedure  :  Ins_Rec  -  Insert  a  record  into  one  of  the  lists*) 
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{*  Parameters  :  File_Nuot,  New_Rec,  Pointer  *} 

{*  Entry  Conditions  :  File_Num  indicates  which  file  to  use,  *> 
{*  New_Rec  is  the  number  of  the  record  to  be  inserted  into  the*} 
{*  list,  and  Pointer  is  the  number  of  the  record  that  New_Rec  *) 
{*  will  be  inserted  after.  *} 

{*  Exit  Conditions  :  The  links  will  have  been  adjusted  so  that*} 
{*  New_Rec  logically  follows  Pointer  in  the  list.  *} 

I************************************#*************************} 
procedure  ins_rec (f i le_num  :  whichfile;  new_rec  :  integer; 
pointer  :  integer); 

access  files; 
var  link  :  links; 
begin 

openf (f i le_num) ; 

with  f ilesCf ile_num]  do 

begin 

if  poi nter=end_of _1 i st  i  Empty  List  } 
then  begin 

{  Make  New_Rec  the  only  entry  in  the  list  } 
buffer. 1 i nk . prev: =new_rec ; 
buffer. link. next: =new_rec; 
f write (f i le_nua,new_rec , buffer , true) ; 
end 

else  begin 

{  Insert  New_Rec  into  the  forward  list  } 
f read (f i 1 e_num , poi n t er , buff er , true) ; 
link. prev: =pain ter;  link.next:=buffer. 1  ink. next; 
buffer . 1  ink , next : =new_rec; 
fwrite(file_n urn, pointer, buffer, true); 

{  Insert  New_Rec  into  the  backward  list  J 
fread(file_nu®, link. next, buffer, true); 
buffer. I  ink. prev: =new_rec; 
fwrite(file_n urn, link. next, buffer, true); 

{  Make  New_Rec  point  to  its  neighbors  } 
buffer . 1 i nk :  =  1  ink ; 

f wr i te (f i 1 e_num ,new_rec , buffer , true) ; 
end; 

end;  (  with  } 
end;  t  ins _rec  } 

{a**********#***********#*********************#***#************} 


{*  Procedure  :  InsertF  -  Insert  a  record  into  the  file  *} 
{*  Parameters  :  File_Num,  Rec_Num,  Buffer  *} 
{*  Entry  Conditions  :  File_Num  indicates  the  file  to  use.  *} 
{*  Buffer  contains  the  information  to  be  inserted.  Last_  *} 
<*  Record  is  the  number  of  the  record  which  Buffer  is  to  be  *} 
{*  inserted  after.  *} 
{*  Exit  Conditions  :  Rec_Num  will  be  the  record  number  which  *} 
{•  was  assigned  to  Buffer  in  the  file.  Once  a  record  is  added*} 
{*  to  the  file,  its  position  will  never  change.  *} 


{»«»***«***»*«****«•*****•«*«*»********#»**«***#»««*«****«**««#; 
procedure  i nser t f ( f i 1 e_num  :  whichfile;  var  rec_num  :  integer; 
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var  buHer  :  links); 

access  files; 
begin 

openf (f ile_nua) ; 

with  f i lest f i 1 e_num 3  do 

begin 

if  next_f ree< >end_of _1 i st 
then  begin  {  There  IS  a  free  record  } 
recs_avail:=recs_avail-l; 

{  Delete  a  record  froa  the  free  list  > 
rec_nua: =del _rec (f i 1 e_nu« ,  nex t _f r ee) ; 

{  And  add  it  to  the  allocated  list  > 
ins _rec(file_num,rec_num, last _read); 

{  Update  the  record  pointers  > 
last_read:=rec_num; 
if  f irst=end_of _1 ist 

then  begin  {  This  is  the  first  record  ) 
next_read: =last_read; 
firsts  =1 ast_read; 
end; 

{  Write  Buffer  to  the  file  } 
f read (f i le_nu«, 1 ast_read , buff er , true) ; 
fwrite(f i l e_nua,last_read, buffer , false) ; 
end; 

end;  {  with  } 
end;  {  insertf  > 

{  # *••«*#*** ***»*#•**«••***«**«*»*****•*****«*#«**#** ****** **«•»} 
{*  Procedure  :  DeleteF  -  Delete  a  record  froa  a  file  *} 

£*  Parameters  :  File_Nu«  *} 

{*  Entry  Conditions  ;  File_Nu«  is  the  file  to  be  used.  Last_  *) 
{*  Read  is  the  record  to  be  deleted.  *1 

C*  Exit  Conditions  s  Last_Read  will  point  to  the  record  foil-  *} 
{*  owing  the  deleted  one.  *} 

{****************************************************»*********} 
procedure  deletef (f i le_num  :  whichfile); 
access  files; 
var  rec_num  :  integer; 
begin 

with  filesCfile_num]  do 
begin 

if  f i r st< >end_of _1 i st 
then 

begin  I  There  is  a  record  to  delete  ) 
recs_avail:=rec=_avail+l; 

{  Delete  the  record  form  the  file  } 
rec_nums=del_rec(file_num,last_read); 
if  1 ast_read=end_of _1 i st 
then  begin 

first: =end_of _1 i st ; 
next_r ead: =end_of _1 i st ; 
end; 
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{  Add  the  deleted  record  to  the  -free  list  } 
in5_rec(file_num,rec_nuii,next_free); 
next_free:=rec_nua; 
end  5 

end ; 

end ; 

{*«***«**«***«*#«*•«#***«******»**«***««««**•*****••***«»*•***«} 


{*  Procedure  :  Posf  -  Position  file  pointers  *)■ 
{*  Parameters  :  file_nu«,  Rec_~ua  *} 
{*  Entry  Conditions  :  File_Nu*  indicates  the  slot  to  use,  and  *} 
{*  Rec_num  is  the  record  nuaber  to  which  the  -file  pointers  *} 
{*  will  be  set.  *} 


{a**#********##**************************#*********************} 

procedure  posf <f i le_nua  :  whichfile;  rec_nura  :  integer); 

begin 

with  f i lesCf i 1 e_nu»]  do 
begin 

if  ( (rec_nua=f i rst )  and  (not  linked)) 
then  resetf (f ile_nua) 
else  next_read: =rec_nua; 
end; 
end; 


{*  Procedure  :  CreateF  -  Create  a  new  Index  for  the  file  *> 
{♦  Paraaaters  s  File_Nua,  How_Many  *> 
(*  Entry  Conditions  :  File_Nu«  indicates  which  file  to  use,  *} 
{*  and  How_Many  indicates  how  many  records  to  allocate  to  the  *} 
{«  file.  ~  *> 
{*  Process  :  The  links  will  be  initialized  as  follows  :  all  of*} 
{*  the  records  will  be  assigned  to  the  Free  list,  and  the  *} 
{*  allocated  list  will  be  empty.  None  of  the  inforsation  in  *} 
{*  the  file  will  be  erased,  but  it  will  not  be  accessable.  *} 


{**#*•»■»***•*■**#*■**#■»■*•***«******»*****##«**»*******■*****'*•**♦**•»*#} 
procedure  cr eat ef (f i 1 e_num  ;  whichfile;  how_many  :  integer); 
access  files; 
var  rec  :  integer; 
begin 

openf ( f i 1 e_num ) ; 

with  f i lesEf i 1 e_nual  do 

begin 

first:=end_af_list;  next_free:=0; 

recs_avail:=how_aany; 

for  rec:=0  to  how_<nany-i  do 

begin 

I  Set  up  the  forward  and  backward  links  > 
buffer. link. n ex t:*rec+l;  buffer. link. prev:=rec-l; 

{  Make  the  next  record  of  the  last  entry  point 
to  the  First  entry  > 

if  buf f er .  1  i nk . nex t=how_aany  then  buf f er .  1  i nk . next :  =0 
{  Make  the  previous  record  of  the  first  entry 
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point  to  the  Last  entry  -  a  circular  list.  ) 
if  buffer,  link. prev=-l  then  buf  f  er  .  1  i  nk .  pr  evs  =how_many- 1  j 
fwrite(file_nufl),rec,buffer,true); 
end ; 
end; 

cl  osef (f 1 le_nu«) ; 
end; 

procedure  erasef (f i le_nue  :  whichfile) ; 
access  files; 
var  file_na#e  :  filespec; 

procedure  kill iletdrive  :  drive_id;  disk_id  :  integer; 
file_name  :  filespec);  external; 

begin  {  erasef  } 

with  f i 1 es C f i 1 e_nua ]  do 

getstr(fs,file_name);  kill _file(drive, disk _id,f i le_nane) ; 
end; 

begin 

{*NULLB0DY} 

end. 
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end; 

whichfile  =  1..10; 

boxes  =  (q,  m,  h);  {  Query,  Menu,  or  help  Box  } 

{  Define  current  menu  environment  ) 
common  old  :  integer;  {  Last  menu  accessed  > 
first_item  :  item_ptr;  {  Top  of  last  menu  ) 

top_list  :  item_ptr;  {  Top  of  Current  List  J 

list  :  item_ptr;  {  Current  position  inside  list  } 
count  :  integer;  {  Number  of  lines  in  current  level  > 

max_lines  :  integer;  {  Number  of  lines  allowed  in  a  menu  ’ 

{  See  TermlO  Nodule  for  details  on  the  following  } 

{  Screen  I/O  Declarations  } 

procedure  goto_box(box  :  boxes;  x,y  :  integer);  external; 
procedure  c 1  ear _1 i ne (box  ;  boxes;  y  :  integer);  external; 
procedure  clear _box (box  :  boxes);  external; 
function  get_count (box  :  boxes)  :  integer;  external; 
procedure  writech(ch  ;  char);  external; 
function  getkey  :  char;  external; 

{*t**«*<««**«**«*»**««*«*«**«»«««««*«t««**«»««*«*««**«<**«#«***} 

{*  Procedure  ;  Erase_Menu  -  Delete  a  menu  structure  from  Heap  *} 
{*  Parameters  :  First_Item  *} 

(*  Entry  Conditions  ;  First_Itea  points  to  the  first  item  of  *} 
{*  the  menu  structure  currently  defined.  *> 

{*  Process  :  Each  item  of  the  current  level  will  be  Disposed.  *> 
{*  If  the  menu  menu  item  has  a  sub-level,  however,  Erase_Nenu  *) 
{*  will  be  recursively  called  to  erase  that  level  first.  *} 

{*  This  will  insure  that  the  entire  tree  structure  is  erased.  *} 
{*•******•*»**#**«**»#**•**»**#•****•*•*•**«**••***** *****♦*##*} 
procedure  erase_menu (f i rst_i tern  :  item_ptr); 
var  current_item  :  item_ptr; 
begin 

{  Make  sure  there  is  something  to  erase!  } 
if  f i rst_i tem< >ni 1 
then  repeat 

{  Erase  all  lower  levels  of  menu  > 
if  f i r st_i tern''. next_l evel <  >ni 1 

then  erase _menu(first_itemA.next_level); 
cur  rent _i tern; =first_i tem; 

C  Point  tc  the  next  item  > 
first _item:=first_itemA.next_item; 
dispose (current _i tem) ; 
until  f irst_item=ni 1 ; 

end; 

{  See  the  Lint-File  Module  for  details  on  the  following  } 
procedure  resetf (f i le_num  :  whichfile);  external; 
procedure  readf (f i le_num  :  whichfile;  var  buffer  :  menu_In; 
var  eolf  ;  boolean);  external: 
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{  See  the  Helo  Nodule  for  details  on  the  -following  > 
procedure  help (help_index : integer > ;  external; 

{ft********************#****************************************} 

£*  Function  :  Read_Menu  -  Read  a  Menu  fro*  the  Menu  File  *1 

■£*  Parameters  :  Menu_Number  *> 

£*  Result  s  Pointer  to  first  ite*  of  Menu  *> 

{*  Entry  Conditions  :  Menu_Number  identifies  which  menu  to  *} 
£*  read.  *> 

{ *  Exit  Conditions  :  The  nenu  will  have  been  read  fro*  the  *} 
£*  Menu  File  into  memory.  The  result  of  the  function  is  a  *> 
{*  pointer  to  the  first  item  of  the  menu.  *> 

(«***« *««***« »*«»*< *«»«***»»»*»*»***»»»******»**•»•»»»»*»»»**»} 
function  readjnenu (menu_nuaber  :  integer)  :  ite»_ptr; 
var  menu_line  :  menu_ln;  £  A  Line  from  the  file  ) 
item  s  ite*_ptr; 
eolf  :  boolean; 

{*****«*«******••*#*•*•«•*•*•*******#•****•****•»*••••«*•«««*«<} 
{«  Procedure  :  Read_Level  -  Read  all  menu  items  at  current  *} 
{*  level  into  memory  *} 

{*  Parameters  :  Last_Item,  Last_Line  *} 

{*  Global  Variables  :  EGLF  ») 

{•  Entry  Conditions  :  Last_Item  points  to  an  allocated  but  *> 
£*  not  yet  initialized  menu  item.  Last.Line  is  the  last  item  <> 
{»  read  from  the  file.  EOLF  is  the  end  of  file  indicator.  •> 
{*  Process  :  First,  the  values  in  Last_Line  are  assigned  to  *} 
{*  Last.Item.  Then,  a  test  is  made  to  see  if  there  are  sub-  *} 
£*  items  under  this  one.  If  there  are,  then  Read_Level  is  *} 
{•  called  recursively  to  read  it.  Finally,  a  test  is  made  tD  *} 
{•  see  if  this  item  is  the  last  item  at  this  level.  If  it  is,*} 
£*  then  control  will  return  to  the  caller.  *} 

{•*******•**«***•***•*••*•««* **#•**#«*«****•******«•**#*«* 
procedure  read^level (last_item  :  item_ptr; 

last_line  :  menu_ln); 
var  level, item  :  item_ptr; 
menu_line  :  menu_ln; 
done  :  boolean; 

begin 

done: =f alse; 
repeat 

1  Assign  File  values  to  Memory  Menu  } 
last _i tern'. item_text:=iast_Iine.item_t ext; 
last _itemA. item _code:=last_line.item_c ode; 

1  ast_i  tem' . help_jndex : *1  ast_l  me.  hel p_inde:: ; 
if  1 ast_l ine. bump_down 

then  begin  {  There  ARE  sub-items  1 

£  Allocate  a  new  item  and  point  to  it  } 
new(level);  last_item*.next_level:=level: 
£  Make  it  the  first  item  of  the  next  level) 
level A. previous_i tem: =ni 1 ; 

£  Pre-read  the  Menu  File  1 
readf (menus, menu  line, eolf); 
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{  Read  in  the  rest  of  this  level  } 
read_level (level, men u_line); 

end 

else  last_i temA. nex t_l eve I : =ni 1 ; 
if  eolf  or  1 ast_l i ne . bump_up 

then  begin  (  Done  with  this  level  ) 
last _itemA. next _itea:=nil; 
done: =true 

end 

else  begin 

{  Read  in  the  next  item  for  this  level  } 
readf (menus, menu_line,eolf ) ; 

{  Allocate  storage  and  point  to  it  } 
new  (i tern) ;  1 ast _i tern A. next _i tem: =i tern j 
itemA.previous_item:=last_item; 

C  Set  up  -for  next  iteration  > 

last_item:=itea;  last_line:=menu_line 
end ; 

until  done; 
end; 

begin  {  read_menu  } 
resetf  (menus) ; 

{  First,  find  the  appropriate  Menu  in  the  Menu  File  } 
repeat 

readf  ( menus, menu_l  ine,eol f ) ; 
until  men  u_l  in  e.  menu  ..number =menu_n  umber ; 

{  Allocate  storage  for  and  point  to  the  first  item  > 
new (item) ;  i temA . pr evi ous_l evel : =ni 1 ; 
read  jnenu: =i tem; 

{  Read  in  the  entire  menu  structure  } 
read_level (item,menu_line); 

end; 

T**************************************************************} 


{*  Function  :  Sel ect_Menu_Item  *1 

{*  Parameters  :  Menu_Index  *> 

{*  Result  :  Item_Code  of  the  selected  terminal  item.  *1 

{*  Entry  Conditions  :  Menu_Index  points  to  the  first  item  of  *> 

{*  a  Menu  currently  in  memory.  *1 

{*  Exit  Conditions  :  The  user  will  have  selected  one  of  the  *} 

{*  terminal  menu  items  (an  item  with  no  sub-items!.  Its  code  *} 

{*  will  be  returned  as  the  value  of  the  function.  If  a  non-  *1 

{*  terminal  item  is  selected,  then  a  recursive  call  to  this 
( *  function  will  be  made,  until  a  terminal  item  is  selected.  ♦  )■ 


{»«*»#«*#*****»*****»**»»*#*«»**#*«»*#***********«**»******«***} 

function  sel ect _menu_i tem ( menu_i ndex  :  item_ptr)  :  integer; 
var  index  :  item_ptr; 
character  :  char; 
selection  :  integer; 

{*«******f***»««f«******«***#*««*«**4««*«#***«**«**«*t**#*****»; 
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{*  Procedure  :  Menu_Display  -  Display  all  Menu  choices  at  the  *> 

{*  current  level  */ 

{*  Process  :  The  menu  box  area  of  the  screen  is  cleared,  and  *1 
{*  the  choices  available  at  the  current  level  of  the  menu  are  *} 

(*  displayed  on  sequential  lines  of  the  screen.  The  cursor  is*) 

{*  positioned  to  the  left  of  the  first  item.  *} 

{***««****«*******«#*******•****•****##*•*****«*«»*••**««**««*«} 
procedure  menu_display; 
var  index  :  item_ptr; 

1  :  integer; 

begin 

clear_box (®) ; 

1 :  -0; 

indexs  =®enu_index ; 
repeat 

C  Indent  each  item  to  leave  room  for  the  cursor  ) 
goto_box ( m , 2 , 1 ) ; 
write(indexA. item _t ext); 
t  Point  to  the  next  item  at  this  level  > 

1 ; =1 +1 ;  i ndex :  =  i ndex A. next _i tern; 
until  index=nil; 
goto_box <m,0,0) ; 

writechC'*');  Hritech(cursorleft); 
wri tech (cursorof f ) ; 
end; 

begin  {  Select  Menu  Item  } 
menu_display; 
index:=menu_index; 
repeat 

character; =getkey; 
case  character  of 

uparrow  :  if  i  ndex A. previ ous_i tem< >ni 1 
then  begin 

writech('  ');  wri tech (cursor left ) 
wri tech (cursorup ) ; 
wr itech ( '* ' ) ;  writech(cursorleft) 
index!=ind ex A. previ ous_i tern 
end; 

downarrow  !  if  i ndex A. next _i tem< >n i 1 
then  begin 

writechC'  ');writech(cursorleft); 
wr  itech  (cursor  down) ; 
writech(  '  *  ' ) ;  writech(cursorleft! 
index :*i ndex A. next _i tern 
end; 

'?'  :  begin 

help  ( i ndex A. hel p_i ndex ) ; 
wr i tech (cursorof f ) 
end ; 

return  :  if  i ndex A . nex t_l evel =ni 1 

then  select _menu_item:=indei:A. it em_codE 
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else  begin  {  recursive  call  1 
selection:=select_menu_item(inde::A.next_level); 
if  selection  =  B 
then  begin 

C  Return  from  lower  level  with 
no  selection,  so  redisplay 
current  level  3 
character : =nul 1 ; 
menu_display; 
index : =menu_index 
end 

else  sal ect_menu_i tern: =select ion; 
end  j 

escape  :  5elect_menu_ite<n:=0; 
end;  C  case  } 

until  char acter =r etur n  or  character=escape; 
wr i tech (cursoron) ; 
clear_box (m)  ; 
end;  {  select_menu_ite«  3 

[*«*««•«***#»••*«****»****»***»#«*********«*<«*******««#««**•*«} 


{*  Function  :  Menu  -  Make  a  selection  from  a  File  Menu  *> 
£*  Paraaeters  :  Current  *3 
{*  Global  Variables  :  Old,  First_Itea  *} 
{*  Result  :  Itea_Code  of  selected  terminal  itea.  *3 
f*  Entry  Conditions  «.  Current  is  the  nuaber  Df  the  aenu  to  be  *1 
{*  made  the  new  current  menu.  Old  is  the  nuaber  of  the  last  *1 
{*  menu  accessed,  and  First_Itea  points  to  the  old  menu.  *} 
{#  Exit  Conditions  s  Old  is  updated  to  Current,  and  the  *3 
{*  function  returns  the  selected  code.  *3 


{***«***•*****•«**•#*«#**«»**«**•**•******«•**«******#«**«**«**} 
function  menulcurrent  :  integer)  ;  integer; 
access  old,  first_itea; 
begin 

if  old  <>  current 

then  begin  {  A  new  aenu  must  be  read  from  the  file  } 
erase  jnenu (first _i tem! ; 
first_i tea: =read_menu (current ) ; 
old : =curr ent ; 
end; 

menu:=select_menu_item(first_item); 

end; 

{«***»««****«*#*»*«•««»*****«**•*****»**«***«*«»«*********«****} 
{*  Procedure  :  Init_List  -  Initialize  a  Memory  List  to  empty  *3 
<*  Process  :  A  list  is  to  be  built  in  memory.  It  must  first  *3 
{*  be  initialized.  Any  old  list  will  be  erased,  and  the  size  «) 
{*  of  the  list  displayed  will  be  set  to  fill  the  menu-bo::.  »3 
{##***##*♦«»♦*#***#♦***#********«**«***#********#«****#**»****♦) 
procedure  init.list; 

access  top_list,  list,  count,  max_lines; 

h  p  r  i  n 
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erase _menu (top_l i st I ; 
top_list:=nil;  list:=nil;  count:=0; 

I  Set  the  size  of  the  Menu  Box  ) 
aax_lines:=get_count(m); 
end; 

{§**««*•*******«**«*•***»*****•«*»•**•*****«*««***««*«••«*##***} 


{*  Procedure  :  Build_List  -  Add  an  item  to  the  Memory  List  *) 
{*  Parameters  :  Ite»_Text,  Ite«_Code  *} 
{*  Global  Variables  :  Top_List,  List,  Count,  Max_Lines  O 
{*  Entry  Conditions  :  Itea_Text  and  corresponding  Item_Code  *) 
{*  are  to  be  added  to  the  list  in  memory.  *} 
<*  Process  :  The  item  will  be  added  to  the  list.  If  the  *} 
{*  number  of  items  in  the  current  level  exceeds  the  capacity  *} 
{»  of  the  menu-box,  then  a  new  level  will  be  created.  Count  *} 
{*  maiantains  the  number  of  items  in  the  current  level,  and  *1 
{*  Max_Lines  is  the  size  of  the  menu-box.  Both  are  *} 
{»  initialized  by  Init_List.  The  first  call  to  this  procedure  *1 
{*  will  define  Top_List,  and  position  for  subsequent  calls  *J 
{*  will  be  maintained  by  List.  *} 


{****«**«***********************•**#*«************#************} 
procedure  bui ld_l ist (i tem_tex t : menu_str ing;  item_code: integer) ; 
access  top_list,  list,  count,  «ax_lines; 
var  entry  :  item_ptr; 
c  :  integer; 

begin 

new (entry ) ; 
if  listOnil 

then  begin  {  This  isn't  the  first  element  of  the  list  } 
list''. next_item:=en  try; 
er.tryA. previous  _item:=list; 
end 

else  begin  {  This  IS  the  first  element  of  the  list  ) 
entryA. previ ous_i tern: =ni 1 ; 
top_l i st : =entry ; 
end; 

if  count=(max_lines-l) 

then  begin  (  Start  a  new  level  of  menu  } 
entry  "-,  next _i tern: =ni 1 ; 
new (list); 

1 istA. previ ous_i tern: =ni 1 ; 
listA.next_level:=nil; 
entry A. next _level:=list; 
count: =0; 

entry'-. i tem_text:  =  '  Rest  of  the  list 
entryA.help_mdex:  =  17; 
end 

else  begin  {  Add  to  present  level  of  menu  ) 
entry A.next_level:=nil; 
list: =entry; 
end ; 

list'. item _text:=item_t ext; 
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listA.item_code:=item_code; 

I  ist A.  help_index :  =  18; 

I I  stA. next_i tem: =ni 1 ;  I  In  case  this  is  the  last  one  > 
count : =count ♦ 1 ; 

end;  {  build  list  } 

{****•*********##*********************«****#***********«***«***} 
{*  Function  :  Select_List  -  Select  an  item  from  Memory  List  *> 


{*  Global  Variables  :  Top_List  *> 
{*  Result  :  Item_Code  of  selected  item.  *> 
■1*  Process  :  After  a  list  hes  been  built  in  memory  through  *’ 
{*  calls  to  Build_List,  an  item  nay  be  selected  with  this  *> 


{*  function.  Since  the  Structure  of  both  lists  and  menus  is  *} 
{*  identical,  Select_Menu_Item  is  used  to  do  the  actual  work.  *} 
{♦a***************#******************************************#*} 
function  select_list  :  integer; 
access  top_list; 
begin 

sel ect_l ist: =select_menu_i tern (top _1  ist ! ; 
end ; 

{*«**««***«**•***••***••*«• *****##**•*■***♦*•»**#** ******* ***•«***} 


{*  Procedure  s  Init_Menu  -  Initialize  Global  Variables  *} 
{*  Global  Variables  :  Old,  First_Item,  Top_List  *5 
{*  Process  s  Prior  to  the  first  use  of  either  a  nenu  or  a  */ 
{*  list,  the  painters  nust  be  initialized.  <1 


{********»•***•«*********«**##*«****••*««•#<••****•*******•**«*} 

procedure  init_nenu; 

access  old,f irst_item,top_l ist; 
begin 

old: - B ;  f i r st_i ten: =ni 1 ;  top_list:=nil; 
end; 

begin 

{♦NULLBODYJ 
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UWIDELIST) 

{***««*****««***««*«*«*«*«*««««*««««*«««««**«««**««*«««««««****} 
{*  Help  Module  -  Provides  information  to  the  user  about  the  *} 
{*  system.  The  help  messages  are  stored  in  the  Help  File,  and*} 

{*  are  indexed.  Each  query  or  menu  item  has  been  assigned  a  *} 

<*  help  index,  which  is  used  to  look  up  the  associated  help  *} 
{*  information.  *} 

{**«*•****« «•««<*«< ««««** «**««*««*<*** ***********  ******** ******} 
program  helper; 

const  aax_help  =  30;  {  Maximum  length  of  a  help  message  line) 

max_lines  -  10;  {  Maximum  number  of  help  message  lines  } 

helps  =1;  {  Help  file  is  file  number  one  } 

type  help_msg  -  record 

help_index  :  integer; 

line  :  packed  arr ay C 1 . . max_help 3  of  char; 
end; 

whichf i le  =  1 . . 10; 

boxes  -  (q,  m,  h) ; 

{  See  the  TermIC  Module  for  details  on  the  following  } 

{  Screen  I/O  Declarations  } 

procedure  gotoxy(x,y  :  integer);  external; 

procedure  c 1  ear _1 i ne (box  :  boxes;  y  :  integer);  external; 

{  See  the  LinkFile  Module  for  details  on  the  following  } 

{  File  Access  Declarations  } 

procedure  readf (f i le_nua  :  whichfile;  var  buffer  :  help_msg; 

var  eolf  :  boolean);  external; 
procedure  resetf (f ile_num  :  whichfile);  external; 

{»***»*•»**»»•***«*•**«••»»»*»»***********«**«*«*•*•*«*********} 
{*  Procedure  :  Help  *} 

{*  Parameters  :  Help_Index  *} 

{*  Entry  Conditions  :  Help_Index  identifies  which  help  message*} 
{*  to  look  up.  *} 

{*  Process  :  The  Help  File  is  scanned  until  a  matching  index  *} 
{•  is  found.  This  line  and  all  subsequent  lines  are  displayed*} 
{*  in  the  help-box  area  of  the  screen,  until  a  line  with  a  *} 
{*  different  index  is  found.  *} 

I**************************?  ■'******************************♦***} 
procedure  help (help_index  :  integer); 
var  x,y  :  integer; 
mess  :  help_«sg; 
eclf  :  boolean; 

1  :  0. . max_l ines; 
begin 

resetf (helps) ; 

I  Find  the  first  line  of  the  help  message,  if  there  is  one.} 
repeat 

readf(helps, mess, eolf); 
until  (mess. help _index=help_index)  or  eolf; 
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1 :  =0; 

{  Display  all  lines  with  matching  index  numbers 
while  not  eolf  and  mess.help_index=help_inde:: 
begin 

cl ear_l ine (h ,1 ) ; 
writeimess. 1 ine) ;  1:=1+1; 
read'f  (helps , mess, eol-f ) ; 
end; 

end; 

begin 

{$NULLB0DY> 

end. 
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(IWIDELIST) 

{*##***#**#****#*********#****#****#*****#********************#} 
{#  Users  Module  -  Maintains  the  List  of  Users  for  the  Command  *) 
{*  Processor  *) 

{«#*****#********#*****##**********#*****#***********«*******#*} 
program  user_file; 

const  max_str  =  30;  {  Maximum  length  of  a  string  } 

user_file  =  3; 

type 

char_string  =  packed  arraytl. .max_str]  of  char; 
whichf i le  =  1 . . 10; 
links  =  record 

next,  prev  :  integer; 
end; 

i  List  of  Users  File  Type  Definitions  } 

{  All  the  information  maintained  about  a  user  > 
user_entry  =  record 

link  :  links; 
name  :  char_string; 
id  :  integer; 
password  :  char_string; 
end; 

{  Global  Variable  initialized  by  Read.Args  routine.  See 
the  Argument  Module  for  details.  } 
common  next_user  :  integer; 

{  File  Access  Declarations  } 

{  See  the  File  Access  Module  for  details  on  the  following  } 
procedure  readf (f ile_num  :  whichfile;  var  buffer  :  user_entry; 
var  eolf  s  boolean);  external; 

procedure  insertf (f ile_num  :  whichfile  ;  var  rec_num  :  integer; 

var  buffer  :  user_entry>;  external; 
procedure  resetf (f i le_num  :  whichfile);  external; 
function  roomf (f  i  le_nu»  :  whichfile)  s  integer;  external; 

{ft**************************************** *#«#*******»*«**»***«} 


{*  Funct i on  s  Lookup  *> 

{*  Parameters  :  User_Name,  Password,  ID  *1 

C*  Entry  Conditions  :  User_Name  contains  the  name  of  the  user  *1 
as  he  typed  it  in.  *J 

{*  Process  :  User_Name  is  looked  up  in  the  User_File  *) 

I*  Exit  Conditions  :  If  the  name  is  found,  then  Password  and  *} 

l*  ID  are  set  to  the  matching  entries  in  the  file,  and  the 
{*  function  returns  a  TRUE  value.  If  the  name  isn't  in  the  *> 

{*  list,  the  function  returns  a  FALSE  value.  *} 


{*#**#*******#********##*****************#*****************#***> 
function  1 ookup (user _name  :  char_string; 

var  password  :  char_string; 
var  id  :  integer)  :  boolean; 

var  user_info  :  user_entry;  {  File  entry  for  comparison  ) 
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eolf  :  boolean;  {  End  of  List  of  Users  } 

begin 

lookup:=false;  {  Haven't  -found  bint  yet  } 

resetf (user_f ile) ; 

repeat 

readf  (user  _f  i  1  e ,  user  _inf o , eol f ) ; 
if  user_inf o.name=user_name 

then  begin  {  This  user  IS  present  in  the  file  } 
password: =user_info. password; 
id:=user_info. id; 
lookup:=true  {  We  found  hie  ) 
end; 

until  eolf  or  user_inf o.na«e=user_name; 
end ; 

;**************•«***»** ****•*•**«***«**********«*««*«***«««**««} 
{*  Function  :  NewUserOK  *} 

{*  Entry  Conditions  :  An  Inquiry  is  being  made  to  see  if  there*} 
{*  is  room  in  the  List  of  Users  for  another  entry.  *} 

{*  Process  :  The  RooaF  function  is  called  to  see  if  there  is  *} 
{*  any  space  available.  •} 

{*  Exit  Conditions  :  If  there  is  at  least  one  entry  available,*} 
£*  then  the  function  will  return  a  TRUE  value.  Otherwise,  the*} 
{*  result  will  be  FALSE.  *} 

{*****>»*•*«** *<t *******•***«*********<**#******* ******** «*«***} 

function  newuserok  s  boolean; 
begin 

if  rooaf <user_f i 1 e) >0 
then  newuserok : =true 
else  newuserok: =false; 
end; 

{**•<******<**«•** *********************************************} 


{*  Function  :  Add_User  *} 
{*  Parameters  :  Name,  Password  *} 
{*  Global  Variables  :  Next_User  *} 
{*  Result  :  User_ID  *} 
{*  Entry  Conditions  :  Name  and  Password  are  to  be  added  to  the*} 
{*  List  of  Users.  *} 
{*  Process  :  The  Next_User  id  will  be  assigned  to  this  Name  *} 
{*  Password  pair  and  will  be  inserted  into  the  List  oi  Users.  *} 
{*  Next_User  will  be  incremented.  *} 
{*  Exit  Conditions  :  The  function  result  will  be  the  id  *} 
{*  assigned  to  the  user.  ♦} 


{a*************************************************************} 
function  add_user (name, password  :  char_string)  :  integer; 
access  next_user; 

var  user_info  :  user_entry;  C  File  entry  buffer  } 

r  :  integer;  {  The  physical  record  number  of 

the  new  entry  -  not  used  here  } 

begin  (  add  user  } 
resetf  <user_f ile) ; 

{  Set  up  the  Buffer  } 
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user _in* a, nase: =  nai*e; 

user_info.password:=passward; 

'  Use  the  Next_User  id  and  update  it  } 

user_info. id: =next_user;  nex t_user : =nex t  user+1 
add_user:=user_info.id; 
insert* (user_f i 1 e,r ,user_i nf o) ; 
end;  {  add  user  } 

begin 

UNULLBODY) 
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ffWIDELIST) 

{**«**********»******************«****«*******«******«*****#«**} 
<*  Projects  Nodule  -  Maintains  the  List  of  Projects  -for  the  *) 
{•  Command  Processor  *) 

{•«••**•*»*»•*##*#**#***«**•*«***»*** at ************** •****•##**} 
program  proj_list; 

const  max_str  =  30;  {  Maximus  length  of  a  string  } 

max_item  =  20;  {  Maximum  length  of  a  menu  item  ) 

{  See  File  Access  Nodule  for  description  of  Files  Array  } 
projects  =4;  C  Slot  number  in  Files  Array  for  Projects) 

g_dir  =7;  {  Slot  number  of  Global  Directory  ) 

type  char_string  =  packed  array  Cl . .max_str )  of  char; 
menu_string  3  packed  arr ay tl . . aax_i tea)  of  char; 
whichf ile  =  1. . 10; 
links  3  record 

next,  prev  :  integer; 
end; 

byte  3  B..255; 

\  List  of  Projects  Type  Definitions  ) 

state  3  ( sel ec t _boar d ,  sel ect_coaponent ,  sel_done, 

connections,  conn_done,  placeaent,  place_done, 
routing,  route_done); 
proj_entry  =  packed  record 

link  :  links; 

id  :  integer;  {  Project  ID  number  > 

name  s  char_string;  {  Project  Name  ) 

desc  s  char_string;  {  Project  Description  ) 

completion  :  state;  {  State  of  Conpletion  > 

user  :  integer;  {  Owner  ID  number  ) 

end; 

{  Global  Variable  -  Initialized  by  Read_Args  routine  in 
Argument  Nodule  ) 

common  next_proj  s  integer;  <  Next  project  id  to  be  assigned.  ) 
{  File  Access  Declarations  ) 

{  See  File  Access  Module  for  details  on  the  following  ) 
procedure  readf (f i 1 e_num  :  whichfile;  var  buffer  :  proj_entry; 
var  eolf  :  boolean);  external; 

procedure  writef (f i le_num  :  whichfile;  var  buffer  :  proj_entry; 

var  writeok  :  boolean);  external; 
procedure  insertf (f ile_num  :  whichfile;  var  rec_num  :  integer; 

var  buffer  :  proj_entry);  external; 
procedure  del etef ( f i 1 e_num  :  whichfile);  external; 
procedure  resetf (f i le_num  :  whichfile);  external; 
function  roomf (f i le_num  :  whichfile)  :  integer;  external; 

{  List  building  declarations  ) 

C  See  Menu  Module  for  details  on  the  following  ' 
procedure  init_list;  external; 

procedure  build_list (item_text:menu_string; i tem_code: l nteger ) ; 
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external ; 

function  select_list  :  integer;  external; 

{  Returns  number  of  Files  Per  Project  -  See  Global  Directory  3 
function  fpp  :  integer;  external; 

{***«»«*#*»«*«*«**#**f***#«*<****««e**«******«««*«*«<*««*#«t«*} 
{*  Function  :  NewProjOK  -  Is  there  room  for  another  project?  *3 
{*  Exit  Conditions  :  If  there  is  room  in  both  the  Global  *3 

{*  Directory  and  the  List  of  Projects,  then  NewProjOK  will  be  *3 
{*  TRUE.  Otherwise,  FALSE  will  be  returned.  *3 

{****#*********************************#*******#***********#***3 
function  newprcjok  :  boolean; 
begin 

if  roomf (projects) >=1  and  roomf (g_dir) >=fpp 
then  newprojok: =true 
else  newprojoks=false; 
end; 

{**#**#* ««*»*«****ft*****»««***««#*»»****«*«**«*****««*******«**3 


Procedure  s  Update_Pr o j_Li st  -  Update  List  of  Projects  *3 
{•  Parameters  :  ID,  Completion  <3 
{*  Entry  Conditions  s  ID  identifies  the  project  in  the  List  *3 
{*  of  Projects  to  be  updated,  and  Completion  is  the  new  value  *3 
{*  for  the  state  of  the  project.  *3 
{*  Process  :  The  List  of  Projects  will  be  scanned  for  project  «3 
{*  ID.  If  found,  its  state  of  completion  will  be  updated  to  *3 
{*  Completion.  Nothing  is  done. if  ID  is  not  found.  *3 


{«*»*•***•****»«**•***< »»••»***•**«**»**»*«*****«**« *t»***«****} 

procedure  update_pra j_l ist (id  :  integer;  completion  :  state); 
var  updated,  eolf,  writeok  :  boolean; 

proj_data  :  proj_entry; 
begin 

resetf (projects);  updated:=false; 
repeat 

readf (projects, proj_data, eolf); 
if  (proj_data. id=id) 

then  begin  {  We  found  it!  3 

proj_data.completion:=coinpletion; 
writef(projects,proj_data, writeok); 
updated : =true; 
end; 

until  eolf  or  updated; 
end ; 

{*m»m******#*«t»#*»H#mi<i**»»i*m**»********»**»«HHf**} 


(*  Function  :  5elect_Pro ject  *3 
{*  Parameters  :  User  *3 
(*  Result  :  One  of  the  user's  project  IDs  *3 
{»  Entry  Conditions  s  User  identifies  whose  projects  to  look  #3 
(*  up  in  the  List  of  Projects.  *3 


(*  Process  :  All  of  User  s  projects  are  looked  up  in  the  List  *3 
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{*  of  Projects  and  the  following  information  is  inserted  into  *} 
{*  a  list  -  project  Name  and  ID  number.  The  Names  will  be  *3 
{*  displayed  in  a  menu  and  the  user  will  be  asked  to  select  *J 
{*  one.  -  *} 

{*  Exit  Conditions  :  The  ID  number  corresponding  to  the  user's*} 
{*  selection  will  be  the  function  result.  If  the  User  has  no  *} 
{*  projects  in  the  List  of  Projects,  then  a  value  of  Zero  will*} 
{*  be  returned.  *} 

{****•***«***•«******«•*«***•«***»«•*«*«**•**••«**«*•*«*•*•«*««} 
function  sel ect_pro ject (user  :  integer)  :  integer; 
var  item_text  :  menu_string; 

c  :  1 . . max_item; 
proj_data  :  proj_entry; 
gotone,  eolf  :  boolean; 
beg  i  n 

gotone:=f alse; 

resetf  (pro jects) ;  ini t _1 i s t ; 
repeat 

readf(projects,proj_data,eolf); 
if  (pro j_data. user=user !  and  not  eolf 
then  begin 

gotone: =true; 

for  c:=l  to  «ax_item  do 

i tem_text  Cc I : =pro j_data. naaelc] ; 
build_list (item_text ,proj_data.id); 
end; 

until  eolf; 
if  gotone 

then  select_project: =select_l i st 
else  select_project:=0; 
end; 

{****•**««***«««••*****•*•»**«*«***••»«***•**«•***»***«*******#} 


{*  Procedure  :  New_Project  -  Add  a  new  project  to  the  List  *} 
{*  Parameters  :  Name,  Desc,  User,  ID  *} 
{*  Entry  Conditions  :  Name,  Desc (ription) ,  and  User  define  the*} 
{*  new  project  to  be  added  to  the  List  of  Projects.  *} 
{*  Exit  Conditions  :  ID  is  the  Project  ID  assigned  to  the  *} 
{*  project.  *} 


{********************»***********♦*****»***********#***********} 
procedure  new_pro ject (var  name,  desc  :  char_string; 

user  :  integer;  var  id  :  integer); 
access  next_proj;  {  Global  Variable  -  Initialized  by 

Read_Header  routine  in  Argument  Module  } 
var  proj_data  :  proj_entry; 

r  :  integer; 
begin 

resetf (projects) ; 

C  Load  the  Buffer  } 
proj_data. name: =name; 
proj_data.desc:=desc; 
proj_data.user:=user; 
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proj_data.co«pletion:=select_board; 

Use  the  next  sequential  ID  and  update  it  > 
proj_data.id:=next_proj;  next_proj:=next_proj+l; 

{  Return  the  new  ID  the  the  Caller  ) 
id: =proj_data. id; 
insert* (projects, r,proj_data); 
end;  <  new  project  > 

{****«# ********************************************* ***#*«****#} 
{*  Procedure  :  Free_Project  -  Remove  a  project  from  the  List  *> 
{*  Parameters  :  Project_ID  *} 

{*  Entry  Conditions  :  Project_ID  identifies  the  project  to  be  *} 
{*  removed  from  the  List  of  Projects.  *} 

{*  Process  :  List  of  Projects  will  be  scanned  for  Project_ID.  *} 
{*  If  it  is  found,  it  will  be  deleted.  Nothing  happens  if  the*} 
{*  project  isn't  in  the  list.  *} 

{*******************************************«*■************■****■*} 
procedure  f ree_project (pro ject_id  :  integer); 
var  eolf  :  boolean; 

proj_data  :  proj_entry; 
begin 

if  pro ject_id< >0 
then  begin 

resetf (projects) ; 
repeat 

readf (projects,proj_data,eolf ) ; 
if  proj_data. id=project_id 
then  delete* (projects) ; 
until  eolf  or  (proj_data. id=project_id) ; 
end ; 

end ; 

I**************************************************************} 
{*  Function  :  Get_State  -  What  is  the  state  of  the  Project?  *} 
{*  Parameters  :  ID  *} 

{*  Result  :  The  current  State  of  Completion  of  the  project  *} 
{*  Entry  Conditions  :  ID  identifies  which  project  to  look  up  *} 
I**************************************************************} 
function  get_state(id  :  integer)  :  state; 
var  eolf  :  boolean; 

proj_data  :  proj_entry; 
begin 

resetf (projects) ; 
repeat 

readf (projects, proj_data, eolf); 
if  (proj_data. id=id) 
then  get  _state:=proj_data. completion; 
until  eolf  or  (pro j_data. id=id) ; 
end; 

{**************************************************************} 
C*  Procedure  :  Get  Name  -  What  is  the  name  of  the  project?  *3 


V>’v 
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{*  Parameters  :  ID,  Name  *} 

<*  Entry  Conditions  :  ID  identifies  the  project  to  look  up  *} 

{*  Exit  Conditions  :  Name  will  contain  the  name  of  the  oroiect*} 

{*  if  ID  exists.  If  ID  isn't  in  the  List  of  Projects,  name  *} 

{*  will  be  set  to  all  spaces.  <} 

{ft******#********#*********************************************} 

procedure  get_name(id  :  integer;  var  name  :  char_str i ng ) ; 
var  eolf  :  boolean; 

proj_data  :  proj_entry; 
begin 

name:='  '; 

resetf (projects) ; 

repeat 

readf(projects,proj_data,eolf>; 
if  (proj_data. id=id)  and  not  eolf 
then  name: =proj_data. name; 
until  eolf  or  <proj_data. id=id) ; 
end; 

begin 

{$NULLBQDY> 

end. 
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{tWIDELIST} 

{**************************************************************} 
{*  Argument  Module  -  Responsible  -for  passing  arguments  between*} 
{*  the  Command  Processor  and  the  other  layout  modules.  *} 

{*********************************************************♦****} 
program  args; 
const  args  =  5; 
g_dir  =  7; 

tyoe 

wf  =  1 . . 10; 

{  Argument  File  Definitions  } 

state  =  (sel ect_board ,  sel ect_component ,  sei_done, 

connections,  conn_done,  placement,  place_done, 
routing,  route_done); 

modules  =  <cp,  selecter,  connecter,  placer,  router,  os); 

C  Arg_Header  contains  information  the  CP  needs  to  know.  } 
arg_header  =  record 

projected,  {  Current  Project  } 

user_id,  {  Current  User  } 

error_code  :  integer;!  Current  Error  } 

completion  :  state;  {  State  of  Completion  } 

module  :  modules;  {  Last  module  executed  } 
end ; 

{  Saved_State  keeps  track  of  the  next  IDs  to  assign  } 
saved_state  =  record 

next_id, 
next_user , 

next_proj  :  integer; 
proj_info  :  arg_header; 
end; 


f i 1 espec 
dr i ve_i d 
links 


where 


ar g_entry 


array[1..123  of  char; 

0. .  1; 

record 

next,  prev  :  integer; 
end; 
record 

file_name  :  filespec; 

linked  :  boolean; 

drive  :  drive_id; 

di sk_i d , 
recs_avai 1 , 
r ec_l en , 
first, 

tree  :  integer; 

end ; 
r ecor d 

link  :  links; 
case  boolean  of 
f al se; (header  :  saved_state) ; 
true: (f i le_entry  ;  record 

file_num  :  wf; 
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file_loc  :  where; 
end) ; 

end ; 

{  Global  Variables  } 

common  next_proj,  next_user,  next_id  :  integer; 

{  See  the  LinkFile  Module  tor  details  on  the  following  } 
procedure  readf(f  :  wf;  var  buf f er : arg_entry;  var  eolf  ’.boolean) ; 
external ; 

procedure  writef(f  :  wf;  var  buf f er:arg_entry; 

var  wri teok: bool ean) ;  external; 
procedure  resetf(f  :  wf);  external; 
procedure  insertflf  :  wf;  var  rec_nua  :  integer; 

var  buffer  :  arg_entry);  external; 
procedure  deleteftf  :  wf);  external; 

{  See  the  Global  Directory  Module  for  details  on  the  following  } 
procedure  update_f i letmodule  :  modules;  project  :  integer; 

file_num  :  wf;  file_loc  :  where);  external; 
function  get_l oc (module  :  modules;  project  :  integer; 

var  file_nun  :  wf;  var  file_loc  :  where)  :  boolean;  external; 


{***#•**#*«*••*•«*•*•*«•»##*«*#********«********««*«******«•***} 


{«  Procedure  :  Read_Args  -  Read  in  arguments  passed  *) 

{*  Parameters  :  Info  *> 

{*  Entry  Conditions  :  The  Argument  File  contains  the  current  *) 

{*  state  of  the  system.  *> 

{*  Process  s  The  current  state  is  sent  back  to  the  Command  *) 

Processor  in  Info.  If  the  last  module  executed  updated  *> 

{*  any  files,  then  the  Global  Directory  has  to  be  updated.  *} 


{******* # ft****************************** ***t ******* **««********} 

procedure  read_args ( var  info  :  arg_header); 
access  next_proj,  next_user,  next_id; 
var  eolf  :  boolean; 

buffer  :  arg_entry; 
begin 

resetf (args) ; 
readf(args, buffer, eolf); 
info: =b uffer. header. proj_info;; 
n ex t_proj:=buffer. header.  next_prcj; 
r.ext_user:=buffer.header.next_user; 
next_id:=buffer.header.ne::t_id; 
repeat  {  Read  current  state  of  files  } 
readf( args, buffer, eolf); 
if  not  eolf 


then  begin 

deletef (args) ; 
with  buf fer . f i le_entry  do 
C  Update  the  Global  Directory  to  match  > 
up  date_file(info.  module,  info,  projected, 


f i 1 e  num .file  1 oc ) 


t 
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end; 

until  eolf; 
end ; 

{***##«#*************************************«*****************} 
{*  Procedure  :  Update_Header  -  Save  current  state  *} 

{*  Parameters  :  Info  *} 

{*  Entry  Conditions  :  Info  is  the  current  state  of  the  system  *} 
{*  to  be  save  in  the  Argument  File.  *} 

{**•**•*****«*#*********##****«**#**#*#•*#»«* #*****#«***#*♦*#**} 
procedure  update_header (inf o  :  arg_header); 
access  next_pro j ,next_user ,next_id; 
var  eolf,  writeok  :  boolean; 

buffer  : • arg_entry; 
begin 

resetf (args) ; 
readf( args, buffer, eolf); 
buffer. header. next _proj:=next_proj; 
buffer . header . next _user : =next _user ; 
buffer,  header. next _id:=next_id; 
buffer. header. proj_info:=info; 
writef( args, buffer, writeok); 
end; 

{•••*«******#•**•««***•#*#»***«*•«***««•«*«*«**•***»*««******•*} 


{*  Procedure  :  Load_Args  -  Load  Argument  File  with  files  *} 
{*  Parameters  :  Module,  Project  *} 
{*  Entry  Conditions  :  Module  and  Project  identify  which  files  *> 
{*  are  to  be  loaded.  O 
{*  Process  :  The  Global  Directory  is  scanned  for  files  with  *1 
{*  matching  Module  and  Project  parameters.  When  found,  their  *> 
{*  locations  are  inserted  into  the  Argument  File.  *} 


I**#*************#**********#****************#*****************} 
procedure  1 oad_args (modul e  :  modules;  project  :  integer); 
var  buffer  :  arg_entry; 

r  :  integer; 
eolf  :  boolean; 

6egin 

{  Reset  the  Directory  and  the  Argument  files,  and  skip  the 
Argument  File  Header  record.  1 
r esetf (g_di r ) ;  r esetf ( ar gs ) ;  readf (args , buf f er , eel f ) ; 
repeat  {  Scan  the  Global  Directory  } 
with  buffer . fi le_entry  do 

eol f : =get_loc (module , project ,f i le_nuc , f i 1 e_loc ) ; 
if  not  eolf 

then  insertf (args, r, buffer) ; 
until  eolf; 
end; 

begin 

(f NULLBODY) 
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<$WI DEL  1ST} 

{**************************************************************} 
{*  DiskList  Module  -  Keeps  track  of  allocated  and  available  *> 
£*  Diskette  soace.  *3 

{*  A  record  is  maintained  for  each  diskette  in  the  system.  *) 
{*  Each  diskette  may  be  either  assigned  to  a  specific  project,*) 
£*  or  assigned  to  a  user.  If  assigned  to  a  user,  then  it  is  *) 
£*  avaialable  far  assignment  to  a  project  created  by  that  user*) 
{♦only.  *) 

I**************************************************************} 
program  disk_list; 

const  max_space  =  133;  {  Maximum  space  available  in  Kbytes  ) 
disks  =  6; 

type 

wf  =  1. . 10; 
links  =  record 

next,  prev  :  integer; 
end; 

disk_assgn  =  record 

link  :  links; 

disk_id,  (  Which  disk  is  it  ) 

free_space  :  integer;  {  How  much  room  is 

available  ) 

case  assigned  :  boolean  of 
true  :  (projected  :  integer); 

false  :  <user_id  ;  integer); 
end; 

{  Global  Variable  initialized  by  Read_Args  -  See  Argument 
Module  for  details  ) 
common  next_id  :  integer; 

{  File  Access  Declarations  ) 

{  See  the  LinkFile  Module  for  details  on  the  following  ) 
procedure  readf(f  :  wf;  var  buffer  :  disk_assgn; 

var  eolf  :  boolean);  external; 
procedure  writef(f  :  wf;  var  buffer  :  disk_assgn; 

var  writeok  :  boolean);  external; 
procedure  insertf(f  :  wf;  var  rec_num  :  integer; 

var  buffer  :  disk_assgn);  external; 
procedure  resetfif  :  wf);  external; 

{  See  the  DiskID  Module  for  details  on  the  following  ) 
orocedure  new_di sk ( d i sk_i d  :  integer)  {external; 

;*■***********#****•«■*♦**«***•»,  *******************♦#*■»■«*■*****■****} 
{*  Function  s  Get_Disk_ID  -  Assign  a  project  file  to  a  disk  *) 
{*  Parameters  :  User,  Project,  Size  *) 

{*  Result  :  Disk_ID  assigned  to  file  *1 

{*  Entry  Conditions  :  User  identifies  the  owner  of  the  file,  *) 
{*  Project  identifies  the  project  to  which  the  file  belongs,  *1 
{*  and  Size  is  the  number  of  KBvtes  required  by  the  file.  *) 
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{*  Process  :  The  Disks  File  is  scanned  for  a  diskette  already  #} 
{*  assigned  to  Project  with  enough  free  space  on  it.  If  one  *} 
{*  can't  be  found,  then  the  file  is  scanned  for  a  diskette  *} 
(*  belonging  to  User.  If  one  is  found,  it  is  assigned  to  pro-*) 
{*  ject.  If  the  User  has  no  free  disks,  then  a  new  diskette  *} 
{*  will  be  added  to  the  system  and  assigned  to  the  project.  *} 
{*««*#«««#*««*»«***«****«****««*«**«****«***««**«**«**«****«**«} 
function  get_disk_i d (user ,  project,  size  :  integer)  :  integer; 
access  next_id; 

var  done,  eolf,  writeok  :  boolean; 
disk_data  :  disk_assgn; 
r  :  integer; 
begin 

resetf (disks) ;  done:-false; 
repeat 

{  Look  for  a  diskette  already  assigned  to  Project  with 
enough  free  space  on  it  for  the  file  ) 
readf (disks, disk_data, eolf ) ; 
if  (disk_data. assigned 

and  disk_data. pro ject_id=pro ject 
and  disk_data.f ree_space>=size) 
then  with  disk_data  do 
begin 

{  Found  One!  > 
get_disk_id:=disk_id; 
f ree_space: =f ree_space-sice; 
wr itef (di sk s, disk _data, writeok) ; 
done: =true; 
end; 

until  eolf  or  done; 
if  not  done 
then  begin 

resetf (disks) ; 

(  Next ,  look  for  a  free  disk  assigned  to  User  } 
repeat 

readf (disks, disk _data, eolf); 
if  (not  di sk_data. assi gned  and 
disk_data.user_id=user) 
then  with  disk_data  do 
begin 

{  Assign  it  to  Project  J 
get_di sk_id : =di  sk_i  d; 
free _s pace: =«ax_s pace-size; 
assigned: =true; 
project_id:=project; 
writ ef (disks, disk _data, writeok); 
done: =true; 
end ; 

until  eolf  or  done; 
end; 

if  not  done 

then  with  disk  data  do 
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begin 

'  Have  to  make  a  new  diskette  available  ) 
di sk_i d : =next_i d ;  next_id:=next_id+l; 
get  _d isk_id:=disk_id; 
assigned: =true; 
project _id:=project; 
insertt (disks, r , disk _data) ; 

{  Label  and  identity  the  new  diskette  > 
new_disk (disk_id) ; 
end; 

end; 

{•**•*«»********«*»**««*«**•«*** *«»#«******««*•********«»#*»***} 
{*  Procedure  :  Free_Disk  -  Deallocate  diskette  space  *} 

i*  Parameters  :  User,  Project  *} 

{*  Entry  Conditions  :  Project  identities  the  project  which  is  *> 
{*  is  no  longer  active,  and  User  identities  wno  the  released  *} 
{*  space  will  be  assigned  to.  *} 

{ft********#********#****##*************************************} 

procedure  f ree_di sk (user , pro ject  :  integer); 
var  eolt,  writeok  :  boolean; 

disk_data  :  disk_assgn; 
begin 

resett (disks) ; 
repeat 

readf (disks, disk _data, eolt); 
it  disk_data. assigned  and 

disk_data.project_id=pro ject 
then  begin 

disk_data. assigned: =talse; 
disk_data.user_id:=user; 
disk_data. f ree_space: =oax_space; 
wr itet (disks, disk_data, writeok); 
end; 

until  eolt; 
end; 

begin 

{*NULLE0DY} 
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£$NIDELIST} 

{********■»*****■»■»**■»***■»■»»#*****#********#*■*********«**#**♦♦**#} 
{*  Global  Directory  Module  -  Maintains  the  directory  of  all  *} 
{*  files  that  the  system  has  knowledge  of.  *} 

{*•**«*«****«**•«**•*#**»»**#»**»*«*»*****«*«****«*«****•**#*««} 
program  gl obal _directory; 
const  g_dir  *  7; 

dump  =  8;  {  Temporary  slot  used  for  files  } 

type 

whi chf i 1 e  =  1 . . 10; 
links  =  record 

next,  prev  :  integer; 
end; 

{  Global  Directory  Type  Definitions  > 

{  Which  Module(s)  can  access  the  file?  } 
nodules  =  (cp , selecter , connecter , placer , router , os) ; 

£  System  Dependent  File  Specification  1 
filespec  =  packed  arraytl..l2]  of  char; 

{  System  Dependent  Drive  Identification  } 
dri ve_id  =  6 . .  1 ; 

£  Where  is  the  file  located  ?) 
where  =  record 


file_name  s  filespec;  £  Name  of  the  File  } 

linked  :  boolean; 

drive  :  drive_id;  £  Drive  in  which  to 

Mount  Diskette  1 

disk_id,  £  Which  diskette  the  file  is  on  J 
rec_len,  £  The  record  length  (power  of  two)} 

recs_avail,  £  Number  of  unused  records  in  file} 
first,  £  Physical  record  number  of  first 
logical  record  } 

free  :  integer;  £  Physical  record  number  of 
free  space  list  } 

end; 

gd_entry  =  record 

link  :  links; 

module_id  :  packed  arrayCmodul esl  of  boolean; 

£  True  value  means  the  module  has 


access  to  the  file  } 

file_num  :  whichfile;  £  Files  Array  Index  } 
projected,  £  Project  to  which  file  belongs.  A 
value  of  Zero  indicates  a  file 
that  is  used  for  all  projects  } 
how_many  :  integer;  £  How  Many  records  have 

been  allocated  } 

file_loc  :  where; 
end; 


£  See  the  File  Access  Module  for  details  on  the  following  } 
procedure  statef (f i le_nums whichf i 1 e;  var  first, free  :  integer); 
external ; 

function  roomf (f i 1 e_num  !  whichfile)  :  integer; 
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external ; 

procedure  r esetf  ( f i  1  e_num  :  whichfile); 
external ; 

procedure  initf (f ile_num  :  whichfile;  file_loc  :  where); 
external ; 

procedure  closef (f ile_num  :  which-file); 
external ; 

procedure  cl ose_al 1 (dri ve  :  drive_id); 
external ; 

procedure  readf (f i le_num  :  which-file;  var  buffer  :  gd_entry; 
var  eolf  :  boolean); 

external ; 

procedure  writef  (f  ile_num  :  whichfile;  var  buffer  :  gd_entry; 
var  writeok  :  boolean); 

external ; 

procedure  insertf (f i le_num  :  whichfile;  var  rec_nu»  :  integer; 
var  buffer  :  gd_entry); 

external ; 

procedure  deletef <f i le_num  :  whichfile); 
external ; 

procedure  createf (f i 1 e_num  :  whichfile;  how_many  :  integer); 
external ; 

procedure  erasef (f i le_nu«  :  whichfile); 
external ; 

procedure  run_f i 1 e (f i 1 e_name  :  filespec;  drive  :  drive_id; 

disk_id  :  integer); 

external ; 

procedure  init_files; 
external ; 

{  See  the  Menu  Module  for  details  on  the  following  } 
procedure  init_menu; 
external ; 

C  See  the  Disk  List  Module  for  details  on  the  following  > 
function  get_disk_id <user ,  project,  space  :  i nteger ) : i nteger ; 
external ; 

{********** *********#****«*********#«***«*«**********««*«******} 


{*  Procedure  :  New_files  *3 
{*  Parameters  :  User,  Project  *} 
{*  Entry  Conditions  :  User  and  Project  identify  a  new  project  *3 
{*  that  the  user  is  creating.  *3 
{*  Process  :  The  Global  Directory  is  scanned  for  Template  *3 
{*  Entries.  A  Template  Entry  is  identified  by  a  value  of  Zero*) 
{«  in  the  Disk_ID  field.  For  each  Temolate  Entry  found,  a  new*} 
{*  file  is  created  and  an  entry  is  made  in  the  Global  *3 
{*  Directory.  *} 


{**********#***************************************»*******«***} 
procedure  new_f i 1 es (user ,  project  :  integer); 

var  new_gde  :  gd_entry;  {  Buffer  for  New  Entries  > 
r,  maxsize  :  integer;  {  B  is  the  physical  record  number  of 
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newly  inserted  entries  -  not  used 
here.  Maxsize  is  the  number  of 
Kbytes  required  by  the  tile.  ) 
eolt  s  boolean;  {  End  of  Directory  indicator  > 

begin 

reset* (g_dir ) ; 
repeat 

readf(g_dir,new_gde,eolf); 
it  new_gde.t ile_loc.disk_id=0 
then  begin  {  Located  a  Template  File  } 
with  new_gde. t i 1 e_l oc  do 
begin 

maxsize:= 

((rec_len  *  new_gde. how_many )  div  1024)  +  1; 
£  Allocate  Diskette  space  tor  the  tile  > 

disk _ids=get_disk_id(user, project, maxsize); 
end; 

{  Assign  the  tile  to  the  Project  } 
new_gde.project_id:=project; 

£  Create  the  new  tile  J 
initt (dump,new_gde.tile_loc)  ; 
create* (dump ,new_gde.how_many) ; 
closet (dump) ; 

£  Add  it  to  the  Directory  } 
insert* (g_dir ,r,new_gde) ; 
end; 

until  eolt; 
end; 

£**************************************************************} 
£*  Function  :  FPP  -  Files  Per  Project  *} 

£*  Result  :  The  number  ot  tiles  created  tor  every  project  *} 

{ft************************************************************} 

tunction  tpp  :  integer; 
begin 

fpp:=2  {  Value  depends  on  current  system  contiguration  } 
end; 

(♦•♦if***#**#********##***************************#*************} 

£*  Procedure  s  Kill _GDE  *} 

{*  Parameters  :  Project_ID  *) 

£*  Entry  Conditions  j  Project_ID  identities  the  project  whose  ♦  } 
£*  tiles  are  to  be  removed  tram  the  Directory.  *} 

£*  Process  :  The  Directory  is  scanned  looking  tor  Entries  with*} 
{*  a  Project_ID  that  matches  the  parameter.  When  tound,  those  *) 
£*  Directory  Entries  are  deleted  and  the  corresponding  tile  is*} 
{*  Purged  tram  the  system.  *} 

(**************************************************************} 
procedure  ki 1 1 _gde (pro ject_i d  ;  integer); 

var  gde  :  gd_entry;  £  Directory  Entry  Butter  J 
eolt  :  boolean;  £  End  of  Directory  flag  } 
begin  £  kill  } 
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it  pro ject_id< >0 
then  begin 

resets (g_dir) ; 
repeat 

readf ( g  _d i r ,  gde, eolf ) 5 
if  gde. pro ject_id=project_id 
then  begin  {  Found  one!  } 
deleted (g_dir) j 
initf(dump,gde.file_loc); 
erase* (dump) ; 
end; 

until  eolf; 
end; 

end;  {  kill  > 

{**************#***********************************************} 
{*  Procedure  :  UpdateGD  Update  Global  Directory  *)• 

{*  Process  :  Before  the  Command  Processor  Finishes  execution,  *> 
{*  the  new  status  of  all  of  the  files  must  be  recorded  in  the  *} 
{*  Directory  to  keep  it  current.  As  records  are  added  to  or  *} 
{*  deleted  from  the  Command  Processor  Files,  the  First,  Free,  *} 
{*  and  Recs_Avail  parameters  are  subject  to  change.  *) 

I************************************************* *************} 
procedure  updategd;  C  Must  be  called  before  CP  terainates ! ! ! } 
var  eolf,  writeok  :  boolean; 

gde  :  gd_entry; 

first,  free,  recs_avail  j  integer;  {  Parameters  to  be  updated  > 
begin 

resetf (g_dir) ; 
repeat 

readf(g_dir,gde,ealf); 
if  not  eolf  and  gde.module_idCcp) 
then  begin 

{  Get  the  current  state  of  the  file  ) 
state* (gde.f ile_num,f irst,free) ; 
gde.file_loc.first:=first; 
gde. file _loc.free:=free; 

{  Get  the  number  of  available  records  } 
gde. file _loc.recs_avail:=rooaf (gde. file _n urn) 
writef(g_dir, gde, writeok); 
end; 

until  eolf; 

{  Make  sure  all  the  files  get  updated  in  the  OS  directory  J 
cl ose_al 1(B); 
cl ose_al 1(1); 
end; 

;***«**»*«»******#«****#**»«***«*#»»**•«**»***#**#******•*«#***} 
{*  Procedure  :  Update_File  -  Update  a  file's  GD  Entry  *) 

{*  Parameters  :  File_Num,  Project,  File_Loc  *> 

{*  Entry  Conditions  :  File_Num  and  Project  identifies  the  file*) 
{*  whose  Global  Directory  Entry  must  be  updated.  *) 
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{*  Process  :  The  file  is  located  in  the  Directory  and  the  *1 
{*  entry  is  updated  with  the  information  in  File_Loc.  *) 

{«****•*««****#*****•*#*#*****«***********»*******«***«*****#**; 
procedure  update_f ile(module  :  modules;  project  :  integer; 

file_num  :  whichfile;  file_loc  :  where); 
var  eolf,  writeok  :  boolean; 

gde  :  gd_entry; 
begin 

resetf (g_dir ) ;  writeoki=false; 
repeat 

readf(g_dir, gde, eolf); 
if  ( (gde. f i le_num=f i le_num)  and 
(gde. pro ject_id=projecti  and 
(gde.module_idCmodule]> ) 
then  begin  {  This  is  the  Entry  to  be  Updated  } 
gde.file_loc:=f i le_l oc; 
writef(g_dir, gde, writeok); 
end; 

until  eolf  or  writeok; 
end; 

{*•**»*»•******•*•****»»»*»»*****#***•»**•*******»«***»***••»**} 


{*  Function  :  Get_Loc  -  Locate  files  for  other  Modules  *> 
{#  Parameters  :  Module,  Project,  File_Num,  File_Loc  *} 
{*  Result  :  EOLF  condition  *} 
{*  Entry  Conditions  :  Module  and  Project  identify  which  files  *> 
{*  are  to  be  looked  for  in  the  Directory.  *} 
{*  Process  :  The  Directory  is  scanned  from  the  current  *} 
{*  looking  for  files  that  belong  to  the  Module  and  Project.  *J 
{»  If  one  is  found,  its  number  and  location  are  returned  to  *1 
{*  the  caller.  This  function  should  be  called  repeatedly  •} 
{*  until  an  End  of  File  condition  is  signalled.  *> 
{*  Exit  Conditions  :  File_Num  and  File_Loc  are  returned,  and  *} 
{*  the  function  returns  a  FALSE  value,  if  a  file  was  located  *} 
{*  that  belonged  to  the  module  and  project.  If  the  End  of  *) 
{*  file  is  reached,  then  the  function  returns  a  TRUE  value.  *) 


{«*»*****•*******«**•*•**«»**••**«**«******«*****#************»} 
function  get_loc (module  :  modules;  project  :  integer; 

var  file_num  :  whichfile;  var  file_loc  :  where)  :  boolean; 
var  eolf  :  boolean; 

gde  :  gd_entry; 
begin 
repeat 

readf(g_dir, gde, eolf); 
until  eolf  or  ( (gde. modul e_i dlmodul el )  and 

( (gde.project_id=project)  or  (gde. pro ject_i d=0) ) ) ; 
f i 1 e_num: =gde. f i 1 e_num; 
file_loc:=gde.file_loc; 
get_l oc : =eol f ; 
end; 

■:***«****************«*******«**««********************«*******»} 
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{*  Procedure  :  Init_All  Initialize  Everything!  *} 

{*  Process  :  After  some  Miscellaneous  initialization  routines  *} 
{*  are  called,  the  Global  Directory  is  Initialized.  Then  all  *' 
{*  of  the  Command  Processor  Files  are  looked  up  in  the  *) 

{*  Directory,  and  they  are  initialized.  No  access  may  be  made*) 

{*  to  a  file  until  it  is  initialized!  *> 

{t*************************************************************} 

procedure  init_all; 

var  file_loc  :  inhere; 

eolf  :  boolean; 
gde  :  gd_entry; 

begin 

init_files;  {  Set  up  the  file  array  with  all  files  closed} 

init_aenu;  {  Set  the  menu  pointers  to  nil  } 

{  The  global  directory  oust  be  initialized  } 

with  file_loc  do 

begin 

{  You  have  to  know  where  to  find  the  Directory  > 
disk_id: =1 ; 

f ile_narae:= ‘GLOBAL /DIR: 0  ' ; 
dr i ve: =0; 
rec_len: =64; 

first:=0;  {This  shouldnt  change!!!) 

end; 

initf (g_dir ,f i le_loc) ; 

{  Free  and  Recs_Avail  parameters  still  not  set  ) 
resetf (g_dir ) ; 

{  Look  up  Directory  entry  in  the  Directory  to  set  them  } 
repeat 

readf(g_dir, gde, eolf); 
until  gde.f ile_nua=g_dir; 
closef(g_dir);  initf (g_dir , gde.fi le_loc) ; 

{  Now  the  rest  of  the  files  can  be  located  } 

resetf (g_di r ) ; 

repeat 

readf(g_dir, gde, eolf); 

if  (not  eolf  and  gde. f i le_num< >g_dir  and 
gde. modul e_i dlcp 3  and  gde. project_id=0) 
then  initf (gde. file _nu«, gde. file_loc); 
until  eolf; 
end; 

{»***■***#***************«***********#**************************} 


{*  Procedure  :  Exec  -  Execute  an  Operating  5ystem  Program  *} 
{*  Parameters  :  Module  *} 
{*  Entry  Conditions  :  Module  identifies  the  Program  to  be  *} 
{*  executed.  The  Command  Processor  will  no  longer  be  in  *} 
{*  control .  *} 


{**«#*«*«**** **#****#********«•**•«*****«**«********#**********} 
procedure  exec (module  :  modules); 
var  gde  :  gd_entry; 
eolf  :  boolean: 
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begin 

{  To  execute  GS,  all  that  is  necessary  is  to  return  from 
this  procedure,  after  which  the  program  will  end!  } 
if  eoduleOos 

{  Otherwise,  the  proper  module  must  be  executed.  ) 
then  begin 

resetf (g_dir ) ; 
repeat 

readf(g_dir,gde,eolf); 

if  gde.module_idCmodulel  and  gde.module_idtosl 
then  with  gde.file_loc  do 

run_f i le (f i 1 e_name,dr i ve,disk_i d ) ; 
until  eolf; 
end; 

end;  {  If  you  get  to  here,  then  the  GS  will  take  control.  } 
begin 

{♦NULLBGDYJ 
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(SWIDELISTJ 

I***************************************#*******#*#************} 
{*  Command  Processor  Module  *> 
{#******#•**#****«#•*************«********»******************** } 


{* 

The  following  files  must  exist  on  the  master  CP  disk 

*} 

{* 

(Disk  nuaber 

1) : 

*> 

(* 

SLOBAL/DIR  - 

describes  the  paraaeters  of  the  rest 

*} 

£* 

of  the  files 

*} 

{* 

MENUS/CP 

Contains  menus  1  and  2 

*} 

{* 

(See  Sel ect_Qpti on  and  Get_Next_Module 

*} 

{* 

for  menu  contents) 

*} 

{* 

HELP/CP 

Contains  all  of  the  system  Help 

*) 

{* 

messages. 

*> 

{* 

USERS/CP 

A  list  of  all  Users  and  their  ID's 

*> 

{* 

PRCJECT/CP  - 

A  list  of  all  Projects  and  their  ID's 

*} 

{* 

DISKS/CP 

Contains  Diskette  space  allocation 

*} 

C* 

ARGS/CP 

The  argument  file  is  the  means  of 

*} 

{* 

communication  between  the  system 

*} 

{* 

modules.  It  also  contains  "Current 

*} 

£* 

State"  information  that  must  be  saved 

*} 

{* 

between  Command  Processor  sessions. 

*} 

{* 

In  particular,  the  Command_Processor 

*} 

{* 

Global  Variables  are  initialized  with 

*} 

{* 

the  following  information: 

*> 

(* 

projected  - 

Number  of  Last  project  accessed 

*} 

(* 

user_id 

Identity  of  current  user 

*) 

(* 

error_code  - 

Error  conditions  of  other  modules 

*} 

{• 

completion  - 

State  of  completion  of  projected 

«} 

£* 

Exit  Conditions  :  The  Global  Directory  and  Argument 

*} 

{* 

Files  are  updated,  and  either  the  program  is  exited,  or 

*} 

{* 

the  next  layout  aodule  is  invoked. 

*} 

{«#****>»**•** *«•************•***•«* *******«*******«***********} 
program  command_processor ; 


const  max_prompt 

=  30; 

{ 

Maximum 

length 

of 

a 

prompt 

} 

max  _nus 

s  10; 

{ 

Maximum 

1 ength 

of 

a 

number 

} 

max_str 

=  30; 

{ 

Max i mum 

length 

of 

a 

string 

} 

type 

{  Query  Type  Definiti 
unit  = 
prompt_string  - 
p_len  * 
position  * 
string_case  - 
char_string  = 
yesno  = 
boxes  = 


ons  ) 

(ails,  inches,  mm,  scalar); 
packed  array!  l . .  max _pr onto 1 3 

1 . .  max_pronpt; 

1 . .  max_str ; 

(upper,  lower,  none); 
packed  arrayC 1 . . max_str ]  of 
(yes,  no,  i_dunno); 

(q,  a,  h) ; 


of  cnar; 


char ; 


{  Slobal  Directory  Type  Definitions  ) 

modules  =  (cp ,selecter , connecter , pi acer , router , os ,undef ined ) ; 

I  A  list  of  the  possible  values  for  the  next  module 
to  be  executed  ’ 


E-M 
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{  List  of  Projects  Type  Definitions  } 

state  =  (sel  ect_board ,  sel ect_component ,  sel_done, 

connections,  conn_done,  placement,  place_done, 
routing,  route_done); 

{  A  list  of  the  possible  values  for  the  state  of 
completion  of  a  project  > 

{  Argument  File  Type  Definitions  ! 

{  Arg_Header  defines  the  information  the  Command_Processor  reads 
from  the  ARGS/CP  file  to  initialize  the  global  variables.! 
arg_header  =  record 

pro ject_i d , 
user _i d , 

error_code  :  integer; 
completion  :  state; 
module  :  modules; 
end; 

var  {  Global  Variables  } 
current  :  arg_header; 

valid  :  boolean;  {  Indicates  the  validity  of  a  user  > 

{  Query  Declarations  ) 

{  See  the  Query  Modules  for  an  explanation  of  these  routines  } 
procedure  querynum (prompt  :  prompt_str ing; 
prompt_length  s  p.len; 

min,  max  :  integer; 
var  answer  :  integer; 
units  :  unit; 

help_index  :  integer);  external; 
procedure  querystr (prompt  :  prompt_string; 
prompt_l ength  :  p_len; 

min,  max  :  position; 
var  answer  :  char_string; 
var  string_length  :  position; 

make_case  :  string_case; 
help_index  :  integer);  external; 
procedure  query_yn (prompt  :  prompt_string; 
prompt_l ength  :  p_len; 
var  answer  :  yesno ; 
help_index  :  integer);  external; 

I  Screen  I/O  Declarations  J 

{  See  the  Terminal  I/O  Module  for  an  explanation  of  these 
routines.  > 

procedure  goto_box(box  :  boxes;  x,y  :  integer);  external; 
procedure  cl ear_l i ne (box  :  boxes;  y  :  integer);  external; 
procedure  clear_box (box  :  boxes);  external; 
function  get_count (box  :  boxes)  :  integer;  external; 
procedure  input_error (err_msg  :  char_string) ;  external; 
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{  See  the  Global  Directory  Module  for  an  explanation  of  this 
routine.  } 

procedure  init.all;  external; 

{*•****■»*•**♦****■****■*■**■»*»**■*****■********************»**********} 
(*  Procedure  Name  :  Resolve  *} 

{*  Parameters  :  Error_Code  *1 

{*  Entry  Conditions  :  Error_Code  identifies  a  particular  error*} 
{*  condition  that  another  module  was  unable  to  handle.  *} 

{*  Exit  Conditions  :  If  possible,  the  error  condition  will  be  *> 
{*  corrected  and  the  error_code  will  be  reset  to  zero.  *} 

{*  In  the  current  implementation,  this  is  a  dummy  routine,  but*} 
{*  it  is  provided  for  future  expansion.  *} 

{******•******•***•******»»*«•****»***«**«#***«*««•«»**»**»**«*} 
procedure  resolve(var  error_code  :  integer); 
begin 

writei'*****  ERROR  * ,error_code: 3, ’  *****'); 
error_code: =0 
end; 

{ it********************************* *»**•**«**********«* *««**«*«} 


{*  Procedure  :  6et_Identity  *} 
{*  Parameters  :  ID,  Valid  *} 
{*  Entry  Conditions  :  The  identity  of  the  user  is  unknown.  *} 
{*  Exit  Conditions  :  ID  will  identify  the  user  if  he  exists.  *} 
{*  Valid  is  a  flag  that  will  indicate  if  the  user  exists.  •} 


;«**«****•***•«*******•*«*••*******«******«««#«*•«»•*«** ••***«*} 
procedure  get_identity (var  id:integer;  var  val i d : bool ean) ; 
const  no_password  =  *  ’; 

var  name,  {  The  name  of  the  user  } 

password  s  char_string;  \  His  Password  } 

name_len  :  position;  {  The  number  of  characters 

in  the  user  * s  name  } 

found  :  boolean;  {  A  Flag  indicating  whether 

or  not  the  user  already 
exists  } 

answer  :  yesno;  {  Will  indicate  if  the  user 

typed  his  name  correctly  } 

{  See  the  Users  Module  for  details  on  the  next  three  routines  } 
function  1 ookup <user_name  :  char_string; 

var  password  ;  char_string; 
var  id  :  integer)  ;  boolean;  external; 
function  add  _user(user_n  ante, password:char_stnng):integer; 
external ; 

function  newuserok  :  boolean;  external; 
{****•*******#♦*«**********#***#**#******#*#*********♦******•»*♦*) 


I*  Procedure  :  Create_User  *} 
{*  Parameters  :  Name  *} 
{*  Outer  Level  Variables  :  Password,  ID,  Valid  *} 
{*  Entry  Conditions  :  Name  was  not  found  in  the  List  of  *} 


Command  Processor  nodule 


{*  Current  Users.  *3 

<*  Exit  Conditions  :  If  there  is  room  for  another  user  in  the  *> 

{*  List  of  Current  Users  and  the  operator  indicated  a  desire  *> 

{*  to  become  a  user,  then  ID  and  Password  will  be  updated  and  *1 

{*  Vaild  will  be  set  to  true.  Otherwise,  Valid  will  be  false. *3 

{***«****»***********««******«««********•******««**************} 
procedure  create_user (name  :  char_string) ; 

var  answer  :  yesno;  {Will  indicate  whether  or  not 

the  operator  wishes  to  become 
a  user  } 

{*#*****«•******•»**»»****»•*»»*«***»»*********#****«**»*«***«« 3 


£*  Procedure  :  Get_Password  *3 
{*  Parameters  :  Password  *3 
{*  Entry  Conditions  :  A  new  user  must  be  assigned  a  Password  *3 
£*  Exit  Conditions  s  If  the  user  indicated  that  he  didn’t  want*3 
{*  a  password,  then  Password  will  be  set  to  all  spaces.  *3 
{*  Otherwise,  Password  will  be  set  to  whatever  character  *3 
{*  string  he  entered.  *3 


{********»***»**«****#*«*«*****************«*#««*«*«»**********} 
procedure  get_password ( var  password  :  char_string) ; 

var  answer  :  yesno;  {  Will  indicate  whether  or  not 

a  password  is  desired  3 

len:  position;  {  The  length  of  the  password  3 

begin 

query_yn('Do  you  want  a  Password?  '>23, 

answer , 4) ; 
if  answer=yes  then 

querystr ( 'What  will  your  Password  be?  ’>27, 

5, 20, password, len, none, 5) 
else  password : =no_password; 
end;  £  get_password  3 

begin  {  create_user  3 

if  newuserok  {  There  IS  room  for  another  one  3 
then  begin 

query_yn('Do  you  wish  to  become  a  user?  ',29, 
answer , 3) ; 
if  answer=yes 

then  begin  £  A  New  User  !  !  !  3 

get_passwor d (password); 
id:=add_user (name, password); 
val i d : =true; 
end 

else  val i d : =f  al se; 
end 

else  i nput_er ror ( ' No  More  Room  for  New  Users!  '); 
end;  £  create_user  3 

{4«***«******«*«*«»*«*««»»«**»****#*****«**««******«****«****«*} 

£*  Function  s  Ver if y_Identity  *3 

£  *  Parameters  :  Password  *3 
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{*  Entry  Conditions  :  The  users  name  was  located  in  the  List  *} 
{*  of  Current  Users,  and  Password  contains  the  password  that  *} 
{*  the  user  originally  specified.  *> 

{*  Exit  Conditions  :  If  the  comparison  string  entered  by  the  *J 
{*  user  matches  his  original  Password,  or  if  the  original  is  *} 
{*  all  spaces,  then  the  function  returns  a  True  result.  *> 

{*  Otherwise,  a  False  value  is  returned.  The  user  get  three  *} 
{*  tries  to  get  the  password  right.  *> 

{♦♦a*************************#**#******************************} 
function  ver i fy_i dent i ty (password  :  char_string)  :  boolean; 
var  testword  :  char_string;  {  The  string  to  compare  with 

the  original  Password  > 

len  :  position;  {  The  number  of  characters  in 

testword  } 


begin 
i  f 


tries  :  0..3;  {  Counts  the  number  of 

attempts  to  match  } 

valid  :  boolean;  {  Indicates  result  of  com¬ 

parison  > 

password=no_p as sword 
then  verify_identity:=true 
else  begin 

tries:=0;  valid:=false; 
repeat 

querystr ( 'Prove  It! 

5,20, test word, len, none, 6) ; 
if  testword=password  then  valid:=true; 
tries: =tries+t; 
until  valid  or  tries=3; 
ver i f y_i denti ty: =val i d ; 

end 


end;  {  verif y_identity  } 


begin  {  get_identity  } 
repeat 

querystr ( 'Who  Are  You  ?  ',13, 

2,20,name,name_len,upper,l); 
found:=laokup (name, pass word, id) ;  answer: = yes; 
if  not  found 
then  begin 

cl  ear _1 i ne  (q  ,-l > ; 
wr i te (name) ; 

query_yn('Is  your  name  correct7  ,21, 

answer , 2) ; 
cl  ear _1 1 ne (q , -1 ) ; 
end; 

until  answer=yes; 
if  not  found 

then  create_user (name ) 
else  valid:=verify_identity (password) ; 
end;  C  get_identity  > 
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I**************************************************************} 
{*  Procedure  :  Select_Option  *} 

{*  Parameters  :  User_ID,  Project_ID,  Completion,  Next_Module  *} 
{*  Entry  Conditions  :  User_ID  identifies  the  current  user.  *} 
{*  Exit  Conditions  :  Project_ID,  Completion,  and  Next_Module  *} 
{*  will  have  been  updated  to  reflect  the  current  status  of  the*} 
{*  project  selected  by  the  user.  *} 

{****«*«* vt** ****** ********* ************************* *«*»**•*«*} 

procedure  select_option (var  user_id  :  integer; 

var  projected  :  integer; 
var  completion  :  state; 
var  next_module  :  modules); 

var  name  :  char_string;  {  Will  contain  the  name  of  the 

current  project  } 

selection  :  integer;  {  The  Menu  Selection  Index  3 

{See  the  Projects  Module  for  details  on  the  following  procedure) 
procedure  update_proj_l ist (i d  :  integer;  completion  :  state); 

external ; 

(See  the  Menu  Module  for  details  on  the  following  function  } 
function  menutnum  :  integer)  :  integer;  external; 

{*****•*•**********•*•******••*•***•**••<•••«**•**********«*•»«} 
{*  Function  :  Get_Next_Module  *} 

{*  Parameters  s  Completion  *} 

{*  Entry  Conditions  s  The  user  has  selected  a  project  and  *} 
{*  desires  to  work  on  it.  Completion  identifies  the  current  *} 
{*  state  of  the  selected  project.  *} 

{*  Exit  Conditions  :  The  function  result  is  the  Next  Step  in  *} 
{*  Layout  Process  that  the  user  has  selected.  A  given  step  *} 
{*  may  be  repeated  as  often  as  desired,  but  may  only  be  per-  «} 
{*  formed  if  all  of  the  previous  steps  have  been  completed.  *} 

{*** f********************** ********* *«*«***********************} 

function  get_next_module (completion  :  state)  :  modules; 


var  selection  :  integer; 


yesno; 


highest,  next:  modules; 


{  Will  contain  the  selection 
from  Menu  2  } 

{  Will  contain  response  to 
query  on  repeating  a  step} 
{  Will  identify  the  highest 
allowable  step  and  the 
user's  selection  } 


begin  {  get_nex t_modul e  } 
case  completion  of 
sel ect_boar d ,  sel ect_component 
sel_done,  connections 
conn_done,  placement 
place_done,  routing,  route_done 
end; 
repeat 
'epeat 


highest:=selecter; 
highest:=connecter; 
h 1 ghest : =pl acer ; 
highest: =router ; 
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sel  ect ion : =«enu (2) ; 

{  1  :  Selecter 

2  :  Connecter 

3  :  Placer 

4  :  Router  > 
case  selection  of 

1  :  next: =selecter; 

2  :  next:=connecter; 

3  :  next:=placer; 

4  :  next: =router ; 
end; 

if  next>highest 

then  input_error ( ’ You  Can''t  do  that  yet! 
until  next<=highe£t; 
if  next<highest 

then  quer y_yn ( ' You  want  to  redo  this  step?  ',27 
answer ,16) 
else  answer:=yes; 
until  answer=yes; 
get_next_modul e: =nex t ; 
end;  {  get_next_aodul e  ) 

{  See  Projects  Nodule  for  details  on  the  following  > 
function  sel ect_project (user _i d  :  integer)  :  integer; 

external ; 

function  get_state(id  :  integer)  :  state;  external; 
procedure  get_nane(id: integer; var  name:char_string) {external ; 
function  newprojok  :  boolean;  external; 
procedure  new_pro ject ( var  name,  desc  :  char_string; 

user  :  integer;  var  id  :  integer); 
external ; 

{  See  Global  Directory  Module  for  details  on  the  following  } 
procedure  new_f i les (user ,  project  :  integer);  external; 

{*  Procedure  :  Create_Pro ject  *} 

{*  Parameters  :  User,  ID,  Name  *} 

{*  Entry  Conditions  :  The  user  has  decided  to  create  another  *} 

{*  project.  User  is  the  identification  number  of  the  current  *} 

{*  user  to  whom  the  new  project  will  be  assigned.  *} 

{*  Exit  Conditions  :  If  there  is  room  for  another  project,  *) 

{*  then  ID  will  contain  the  project  identification  number  that*} 

{*  was  assigned  to  it,  and  Name  will  contain  the  user  assigned*} 

{*  name.  If  there  is  not  room  for  another  project  to  be  *} 

{*  defined,  then  ID  will  be  zero.  *} 

{***#******»***************************t*t***t********«»***»***} 

procedure  create_pr o ject (user  :  integer;  var  id  :  integer; 

var  name  :  char_string) ; 
var  desc  :  char_string;  {  User's  description  of  project  }  j 

ans_len  :  position;  (  Number  of  characters  in  name  } 
begin  ] 


I 


Command  Processor  Nodule 


if  newprojok 

then  begin  £  There  IS  room  for  another  project  > 

querystr ( ' What  do  you  want  to  call  it?  ',28,2,26, 
name, ans_len, none, 20); 

querystr ( 'Give  a  brief  description  :  ',26,1,30, 

desc,ans_len,none,21) ; 

£  Add  the  project  to  List  of  Projects  } 
new_project(name,desc,user,id); 

£  Allocate  Diskette  space  for  the  project  ) 
new.f i 1 es (user , id) ; 
end 

else  begin 

input_error ( 'No  More  Room  for  Projects!  '); 

id: =0; 

end; 

end ; 

£  See  the  Global  Directory  Module  for  details  on  the  following  } 
procedure  ki 1 1 _gde (project  :  integer);  external; 

£  See  the  Projects  Module  for  details  on  the  following  } 
procedure  f ree_pro j (pr o ject_i d  :  integer);  external; 

£  See  the  Disk  List  Nodule  for  details  on  the  following  } 
procedure  f ree_disk (user ,  project  :  integer);  external; 

£»*«»»*»•»**«#*«»«*«*•*****•*******«*********««**»•*•*«•«««••»*} 


£*  Procedure  :  Kill_Project  ♦} 
£*  Parameters  :  User,  Project  *> 
£*  Entry  Conditions  :  The  user  has  decided  to  destroy  the  *> 
£*  currently  selected  project  identified  by  Project.  *} 
£*  Exit  Conditions  :  The  project  will  have  been  removed  from  *> 
£*  the  List  of  Projects  and  the  diskette  space  will  have  been  *} 
£*  de-al 1 ocated.  Also,  Project  will  have  been  reset  to  zero  #} 
£*  to  indicate  that  there  is  no  longer  a  current  project.  *} 


{*»*»***»*•*««**•«•»***«**«*******#*«#«•»******#*#«*«****««****} 
procedure  ki 1 1 .project (user : integer ;  var  project: integer ) ; 
begin 

£  Remove  the  Project  from  the  Directory  > 
ki 1 l_gde (pr eject ) ; 

£  Remove  the  project  from  the  List  of  Projects  > 
free.project (project); 

£  De-allocate  the  Diskette  space  } 
f r ee .disk (user , project ) ; 

£  Reset  to  No  Current  Project  J 
project: =0; 
end; 

begin  £  Select  Option  } 
if  pro ject.i d< >0 

then  begin  £  There  IS  a  currently  selected  project  > 

£  Make  sure  the  List  of  Projects  is  Up  to  Date  } 
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update_proj_list(project_id,completion); 
get _na»e (pr o jec t _i d , name) ; 
end 

else  naees='No  Current  Project  Selected. 

next_oodule:=undetined; 

repeat 

clear _1 ine (q ,3) ;  write ( ‘Current  Project  :’,nane); 
sel ection : =aenu < 1 ) ; 

{  1  :  Continue  Project 

2  :  Switch  Projects 

3  :  Create  New  Project 

4  :  Discard  Project 

5  :  Exit  to  Operating  System  > 
case  selection  oT 

1  :  it  project_id=0 

then  i nput_er ror ( ’No  current  project  selected!  ') 
else  next_module: =get_next_module i comp  let  ion ) ; 

2  :  begin 

project_id:=select_project(user_id); 
it  project_id=B 

then  input_error < ' You  have  no  Projects  detined!  ') 
else  begin 

coap  1  et  i  on  :=get_st ate  (projected) ; 
get_name (pro ject_i d , naae) ; 
end; 

end; 

3  :  create_project  (user_id,  projected,  naae); 

4  :  begin 

kill_project(user_id,  project _id); 
name:='No  current  project  selected. 
end; 

5  :  begin 

next_aodule: =os; 
projected!  =0; 
user_i ds  =0; 
end; 

end; 

until  next _«oduleOundef ined; 
end;  {  select_option  } 

{***#* ***♦***#*##**#*****#****#*#******************************} 


{*  Procedure  :  Execute_Next  *> 
i*  Parameters  :  Module,  Project  *} 
{ *  Global  Variables  :  Current  *> 
{«  Entry  Conditions  :  Module  and  Project  will  identity  the  *} 
{»  module  which  is  to  be  executed  next.  *} 
{*  Exit  Conditions  :  The  selected  module  will  be  executed  *} 
{*  atter  the  Argument  tile  is  set  up  with  the  names  ot  all  O 
£♦  ot  the  tiles  required  by  the  module.  The  Directory  will  *} 
{*  have  been  updated  to  retlect  any  changes  in  the  status  ot  *} 
{*  all  the  tiles  used  by  the  command  processor.  *} 
{*  Note  that  control  will  NOT  return  to  the  caller!  *} 
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{*»*«*•**»«**«*«»*«*««**«*«*******•«***•***«***«*«****«**«*«*#*} 
procedure  execute_next (module  :  modules;  project  :  integer); 

{  See  the  Global  Directory  Module  tor  details  on  the  following  } 
procedure  updategd;  external; 
procedure  exec(module  :  eodules);  external; 

{  See  the  Argument  Module  for  information  on  the  following  } 
procedure  update_header (inf o  :  arg_header);  external; 
procedure  load_args(module  :  modules;  project  :  integer); 

external ; 

begin 

update_header (current) ; 
load_args (module, project) ; 

updategd;  <  Update  Global  Directory  and  Close  all  files  } 
exec (modul e) ;  {  No  direct  return  from  this  procedure!  > 
end; 

{  See  the  Argument  Module  for  details  on  the  following  } 
procedure  read_args ( var  info  :  arg_header);  external; 


m 


begin  {  command  processor  } 
ini t_al  1  $ 

read_args(current) ; 
with  current  do 
repeat 

if  error_code<>0 

then  resolve(error_code) ; 
user_id=0  and  error_code=0 
then  get_identity(user_id,valid) 
else  validtstrue; 

(valid  and  (error_code=0> ) 

then  select_option  (user_id,  projected,  completion,  module) 
error_code=0 

then  execute_next (module,  projected); 
until  error  code30 


if 


if 


if 


APPENDIX  F  -  Command  Processor  User’s  Manual 
Start-up 

The  following  discussion  assumes  that  the  computer  is 
on  and  that  the  Command  Processor  has  been  properly 
installed.  (See  Appendix  C  for  installation  instructions.) 
To  initiate  the  program,  insert  the  Command  Processor  disk 
(it  should  be  labeled  as  disk  number  one)  into  Drive  A  and 
type  ~C.  Next  type  'CP'  and  press  return.  The  Screen  will 
clear  and  the  following  will  be  displayed: 

Who  Are  You  ?  _ _ 

Response  must  be  between  1  and  30  characters 

In  response  to  this  question,  you  may  enter  whatever 
character  string  you  want  to.  Your  answer  will  be  used  to 
identify  you  in  the  future,  so  some  form  of  your  name  seems 
the  most  likely  candidate.  Once  you  successfully  answer  this 
question,  you  will  be  asked  some  more  questions  with  equally 
obvious  responses.  Rather  than  trying  to  explain  here  what 
your  answers  should  be,  I  will  explain  how  to  get  help  and 
how  to  edit  your  responses.  This  system  has  been  designed  to 
not  need  a  manual  for  operation,  after  all. 

How  to  Get  Help 

Whenever  you  are  asked  a  question,  you  have  the 
opportunity  to  get  an  explaination  of  how  you  should 
respond.  The  question  mark  on  the  keyboard  is  reserved  for 
this  purpose,  and  cannot  be  a  part  of  any  response.  When  you 
type  a  '?',  the  corresponding  help  message  will  be 
displayed.  If  the  message  is  larger  than  the  space  available 
on  the  screen,  you  will  be  prompted  to  press  any  key  to  see 


the  rest  of  the  message. 

If  you  press  '?'  while  in  the  middle  of  an  answer,  then 
when  you  have  finished  reading  the  help  message  your  partial 
answer  will  be  erased.  Don't  forget  and  try  to  use  a  '?'  as 
part  of  any  answer! 

In  addition  to  help  for  questions,  there  is  also  help 
available  for  each  menu  option.  When  a  menu  is  displayed  on 
the  screen,  pressing  '?'  will  retrieve  the  help  message  for 
the  item  indicated  by  the  current  position  of  the  cursor 
(see  below  for  instructions  on  moving  the  cursor).  Before 
you  select  an  item  for  the  first  time,  you  should  ask  for 
help  so  that  the  implications  of  that  particular  selection 
may  be  explained  to  you. 

Editing  Your  Responses 

There  are  three  different  kinds  of  queries  to  which  you 
may  be  asked  to  respond,  and  each  has  unique  editing 
features  available.  The  three  types  are  string  queries, 
number  queries,  and  yes/no  queries. 


As  you  may  expect,  the  response  to  a  string  query  is  an 
ASCII  character  string.  Any  printable  character  EXCEPT  '?' 
is  allowed  in  the  string.  The  general  format  of  a  string 
query  is  as  follows: 

Question  being  asked  ?  _ 

Response  must  be  between  min  and  max  characters 

Min  and  max  are  numbers  which  indicate  the  allowed 
length  of  the  response.  The  number  of  underlines  will  be  the 
same  as  max. 

Answer  the  question  by  typing  an  appropriate  response. 
You  may  move  the  cursor  back  and  forth  with  the  left  and 
right  arrows.  Backspacing  over  what  you  have  already  typed 
will  not  erase  it,  so  you  may  correct  a  mistake  at  the 
beginning  of  a  line  without  retyping  the  whole  thing. 

If  you  want  to  insert  a  character  or  characters  in  the 
middle  of  something  you  have  already  typed,  move  the  cursor 
to  where  you  want  some  space  opened  up,  then  type  ~S 
(insert)  for  each  character  to  be  inserted.  Each  character 
from  the  one  under  the  cursor  to  the  end  of  the  string  will 
be  moved  to  the  right  every  time  ~S  is  typed.  The  cursor 
position  will  not  change.  If  what  you  have  typed  is  already 
the  maximum  length,  the  last  character  will  be  lost  with 
every  insertion. 

Deleting  characters  is  also  simple  -  position  the 
cursor  on  the  character  to  be  deleted  and  type  ~D  (Delete) . 
All  the  characters  to  the  right  of  the  cursor  will  move  left 
to  fill  in  the  space  left  by  the  deleted  character.  Deletion 


also  does  not  alter  the  cursor  position. 


When  you  are  satisfied  with  your  answer,  press  RETURN 
to  terminate  entry.  If  you  have  entered  less  than  the 
minimum  number  of  characters,  the  RETURN  will  be  ignored. 
The  cursor  position  at  the  time  you  press  RETURN  has  no 
effect  on  the  answer  -  all  the  characters  you  see  on  the 
screen  will  be  in  it,  so  be  careful. 

Number  Queries 

A  number  query  can  be  recognized  by  the  following 
format: 

Question  Being  Asked  ?  _  units 

Range:  min  to  max 

Units  will  be  one  of  mils,  inches,  mm,  or  blank.  If 
blank,  then  the  number  is  dimensionless.  Min  and  max  will 

& 

be  in  terms  of  the  displayed  units. 

The  only  characters  recognized  are  the  digits  0  through 
9,  the  comma,  the  period,  the  plus  sign,  and  the  minus  sign. 
Any  other  character  typed  will  be  ignored.  The  left  and 
right  arrows  are  also  recognized  as  with  the  string  query. 
Insertion  and  deletion  are  the  same  as  for  the  string  query, 
but  only  one  period  (decimal  point)  is  allowed. 

An  additional  feature  of  the  number  query  is  the 
ability  to  change  units.  Pressing  ~U  (Units)  will  cycle  the 
units  displayed,  and  also  change  the  values  of  min  and  max 
appropriately.  Every  time  ~U  is  pressed,  the  units  will 
change  in  the  following  sequence:  mils  to  inches  to  mm  back 
T“  to  mils.  If  no  units  are  displayed,  pressing  ~U  will  do 

nothing. 


Pressing  either  plus  or  minus  will  change  the  sign  of 
the  number  as  indicated  by  the  leftmost  character,  but  the 
cursor  will  not  move.  Commas  may  be  placed  wherever  desired, 
but  they  have  no  effect  on  the  value.  As  indicated  above, 
any  decimal  point  after  the  first  will  be  ignored. 

Termination  of  a  number  entry  is  indicated  by  pressing 
RETURN.  If  the  value  does  not  fall  within  the  specified 
range,  you  will  be  notified  and  asked  to  try  again.  As  with 
the  string  query,  the  position  of  the  cursor  when  RETURN  is 
pressed  does  not  matter.  RETURN  by  itself  will  result  in  a 
zero  value. 

Yes/No  Queries 

A  Yes  or  No  query  can  be  recognized  by  the  format: 

Question  Being  Asked  ? 

Please  Respond  with  Yes  or  No. 

Pressing  the  '  Y'  key  (either  upper  or  lower-case)  will 
spell  out  the  word  "Yes"  and  the  'N'  key  will  spell  out 
"No".  Any  other  key  will  spell  out  "I  Don't  Know!".  When  the 
proper  response  is  displayed,  pressing  RETURN  will  enter 
your  answer.  No  editing  is  necessary,  and  you  may  change 
your  mind  as  often  as  you  like  before  you  press  RETURN. 


Menu  Item  Selection 

When  a  menu  is  displayed  on  the  screen,  you  are 
supposed  to  select  one  of  the  items.  A  menu  looks  like  this: 

*  Item  One 
Item  Two 
Item  Three 

Last  Item 

The  asterisk  is  the  cursor  which  indicates  the  current 
item.  Pressing  the  up  and  down  arrows  will  move  the  cursor 
up  and  down  as  desired.  To  select  an  item,  position  the 
cursor  beside  it  and  press  RETURN.  If  you're  not  sure  what 
will  happen  with  a  particular  item,  position  the  cursor  next 
to  it  and  press  as  discussed  above.  This  will  tell  you 

all  you  need  to  know  about  the  item  in  question. 

Floppy  Disk  Handling 

Because  the  system  keeps  track  of  all  disks  with  an 
index  number,  it  is  important  to  properly  label  a  diskette 
when  instructed  to  do  so.  It  is  also  important  to  not  change 
disks  unless  specifically  asked.  Following  these  rules  will 
insure  that  your  files  don't  get  corrupted. 

Once  a  diskette  is  assigned  to  you,  it  will  never  be 
made  available  to  anyone  else,  even  if  you  delete  the 
project  on  it.  This  allows  you  to  keep  your  own  disks 
physically  separate  from  everyone  else's  if  you  wish. 

Before  you  create  a  new  project,  be  sure  you  have  some 
blank  FORMATTED  disks  available.  The  disk  doesn't  have  to  be 
entirely  blank,  but  it  must  have  enough  room  for  all  the 
project  files.  Just  to  play  it  safe,  you  should  dedicate 
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